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CRAZY BALL 


Les articles et programmes que nous publions dans ce 
numéro bénéficient, pour une grande part, du droit d’au- 
teur. De ce fait, ils ne peuvent être imités, contrefaits, co- 
piés par quelque procédé que ce soit, même partiellement 
sans l'autorisation écrite de la Société SORACOM et de 
l’auteur concemé. Les opinions exprimées n'engagent que 
la responsabilité de leurs auteurs. Les différents montages 
présentés ne peuvent être réalisés que dans un but privé 
où scientifique mais non commercial. Ces réserves s’ap- 
pliquent également aux logiciels publiés dans la revue. 


CPC infos est édité par les Editions SORACOM, éditrice 
de PCompatibles Magazine et MEGAHERTZ Magazine. 
RCS Rennes B 319 816 302. 


AMSTRAD est une marque déposée. 
CPC infos est une revue mensuel totalement indépendante 
d'AMSTRAD GB et d'AMSTRAD FRANCE. 
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\/ oici Les fanzines 
sont à nouveau 
réunis pour montrer 
ce qu’ils savent faire. 
Les petits nouveaux se 
pressent derrière les 
anciens et il ne tient 
qu’à vous de leur 
prêter une vie 
durable. Eh oui, car 
l’éternel problème 
vient des lecteurs. 
Certains fanzines 
m’ont écrit que le 
passage dans CPC 
Infos permettait de 
gagner quelques 
lecteurs, je pense que 
ce numéro ne fera pas 
exception à la règle et 
que d’autres fanzines 
naîtront bientôt. 
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Après m'être péniblement remis 
du jeu de mots subtil composant le 
titre du fanzine, Il est temps de son- 
ger à en décrire le contenu. Un test 
utilitaire (Fairbank), un test de jeu 
(Barbarian Il), un concours, des 
vecteurs systèmes, le hardware du 
CPC, un help, un «le saviez-vous ?» 
(moi, je le savais), une interview, un 
The end. C'est gratuit, sur 4 pages 
recto-verso et on le commande 
galement aux adresses suivantes : 


Arnaud Denizart 
7, rue des Clarines 
80200 Peronne 


ou : 
Sébastien Brouet 


48, avenue Mac Orlan (porte 63) 
80200 Peronne 
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SYSTEME CPC 


Un numéro 1 qui n'est pas 
gratuit, Il vous en coûtera 2.50 F 
plus 4 F de frais de port pour 
vous procurer Info System CPC. 
Le contenu, réalisé par Franck à 
l'aide d'Oxford PAO et OCP, 
reste classique : rubrique BASIC, 
Assembleur (encore les vec- 
teurs), banc d'essai, Pokes, Fan- 
zines. Pour cette dernière, il se- 
rait préférable de ne pas utiliser 
les textes parus dans CPC Infos, 
car il ne s’agit pas vraiment de 
grande littérature (je parle de 
CPC Infos, bien sûr 1) et un 
commentaire personnel est tou- 
jours le bienvenu, d'autant qu'il 
est assez simple de se procurer 
les fanzines en question. 




































Franck Caron 
13, rue du Baloir 
23320 St Vaury 
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Changement de programme 
dans le numéro 6 du P.EJ.I (en 
abrégé) puisque la PAO fait son 
apparition à la demande pressante 
de nombreux lecteurs. Du coup, on 
trouve une initiation à Oxford PAO, 
programme qui semble avoir ravi le 
rédac’ chef. Il y a également une 
initiation aux bases en mathémati- 
ques et diverses rubriques classiques 
: les Siglo (voir dans le fanzine), les 
PA, l'actualité. Une nouvelle rubri- 
que nous propose de lire à notre 
place (dans ce numéro c'est un 
extrait de Peur Bleue de Stephen 
King), moi j'aimerais assez une rubri- 
que qui ferait mon boulot à ma pla- 
ce, c'est possible ? 




























ILLUSTRE 













Numéro 6}wwwm|Mai 1992 


FANZINE GRATUIT POUR AMSTRAD 




































4. en tiabres par nunéro pour frais d'envoi 
Tous les anciens nunéros sont disponibles 
Jacques DE LAMAR SG Av des COSMONAUTES 

45400 FLEURY LES AUBRAIS 
















"N'hésitez pas à envoyer vos idées, vos dessins, vos 
programmes, vos petites annonces .., Enfin tout ce qui 
pourrait constituer la noitié du quart du commencement 
d'une page. T'as pas idée de l'angoisse que peut ae pro- 
curer ume feuille blanche à remplir .,, Alors imagine 
l'effet produit par 8 pages blanches !.. 
Hein ? Je vouvoie et ensuite je tutoie? 
Un nonent de faiblesse, je ne F 
recomnencerai ris 

















Jacques De Lamar 
3, av des Cosmonautes 
45400 Fleury les Aubrais 
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C'est bien de la PAO!... 
Depuis le temps que tu ne rebattais les oreilles 
avec ne collages, il fallait bien que ça arrive. 
Alors j'ai essayé oXFORD PAO pour voir et : 
le doigt étant coincé dans la aoulinette, j'y 
suis passé complètement ... Enfin presque .,. 
Il reste tout de nême un ou deux collages . , 
Mais surtout, ne t'avises pas de me dire : 
que la PA c'est plus rapide ! Et puisque 

tu es responsable de tout, tu ne sauras 
pas ce que contiennent ces feuilles! NA ! 
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- de Buse chement souffre du grand défaut des utili- 


sateurs de cet ordinateur : vouloir mettre 
des fontes différentes tous les 10 mots. Ah 
ben oui, il en a des polices de caractères le 
Mac, mais ce n'est pas une raison pour tou- 
tes les caser dans la même page. Pour le 
reste, ce sont deux bancs d'essai jeu et des 
Infos diverses sur des sujets aussi éclectiques 
que : Lysiane, la BD, la musique où Robin 
Willlams. 





Franchement 
Cédric Fontaine 
5, rue Foch 85000 La Roche sur Yon 
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Entièrement réalisé à la main, 
Méga games ne ravira pas les 
bidouilleurs de programmes puisqu'il 
ne contient presque que des tests 
de jeux. Et attention, Il n'est pas 
question de se limiter à l’Amstrad 
| à car la plupart des machines de jeu 
NUMERO SUPER S sont présentes : Amiga, Nes, Game- 
AA de Leds boy, Sega Master System, Mégadii- 
ve, Game Gear et autres Super-Fa- 
micom. Les autres rubriques, Un peu 
courtes à mon avis : blagues, basic 
Amstrad et Top Jeux. Pour recevoir 
Mega Games, envoyez 4 francs en 
timbre à l'adresse suivante : 





Méga Games 
81, rue Anatole France 
62100 Calais 
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DR ANINTS 


En voilà des furieux, Il y a déjà 18 
numéros que le CD existe, Il serait 
peut- être temps de songer à les 
abattre. Je sais on va encore leur 
faire de la pub en parlant d'eux 
dans ce truc plein de Datas qu'est 
CPC Infos. Mais mol, Je suis maso, 
j'aime lire les pages de la «Défonce» 
et j'en redemande. Sinon, le reste 
est à l'avenant : des bancs d'essai 
et des articles très verbeux, ce qui 
n'est pas un défaut. 






















Le Croco Déchainé 
5, rue Tournade 
17000 La Rochelle 
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D'après ce que j'ai pu en 
comprendre, Exit passerait donc 
bimestriel. Et ce n'est pas tout, 
l'annonce d'un jeu d'aventures 
à venir vous est révélé par l‘In- 
terview d'un des auteurs : ERA. 
? AIS PAS | J'avoue que je n'al pas entière- 

PERCRE , ment suivi la démarche concer- 
nant les voyages astraux alnsl 
que les pubs sur les revues «pa- 
ranormales» mails après tout 
chacun son truc. Les rubriques 
fanzines, PA et banc d'essai ne 
manquent pas à l'appel. Pour 
recevoir EXIT, écrivez à : 
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î Fe du fans dis cRGEx RON aui 
realise par la fine equipe du fan: Er tr PoT ENTE 
S. qe ben oui on se set au panier mais PE têne 
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Avec un sous-titre comme je les 
alme : «Le fanz le plus chaud de la 
micro». Evidemment, cela ne pou- 
vais que me plaire. C'est vrai, il y a 
des dessins Un peu «hot» mails cela 
reste dans les limites de la (ma ?) 
décence. Ils sont d'ailleurs extraites 
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pour la plupart d'un slide-show réa- 
llsé (Je pense) par Patrick Dettori. 
Deux petits reproches pour ce nu- 
méro : les fontes disparates et la 
qualité des photocopies ne facili- 
tent pas la lecture. Et, deuxième 
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28, rue de Croix Verte 
95130 Franconville 
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COMPILATIONS 


G.LINEKER COLLECTION . 129/199 
Italia 90+ Intern.soccer challenge + 

Foot of the year + G.Lineker Hot Shot 
L.C. WAIKIKI 








Tennis Cup + Prince of Persia + 
Swap + Team Suzuki 


FUN RADIO 2 259 








Kick Off 2 + Great Court 1 + 3D G.P 
+Fighting Soccer+Grand Prix 500cc 2 
CLASSIC COLLECTION 199 


Gremilins 2+Barbarian 2 + Colossus 
Chess + World champion socce: 
SKYROCK .… 269 
Hudson rock+ Rainbow + 
Shadow warrior +Grand prix 500 N°2 
SELECTION CPC 269 
Builderland + Foot+ Quadrel + 5eAxe 
EUMPNESRMEORT Bactron+ Mata Hari 














Turbo cup+Harricana+Toyota celica 
+Outboard 
BLACK SOFT 2 299 
Manoir de Morteville + Secte Noire + 
infernal House + Malediction 
SIMULATION'S BEST 
Panza kick + Disk + À DS 








SIMULATION TOP 269 
Panza K + Prince de Perse +Targhan 
CPC BEST 199/249 





Harricana+Pinball Magic+3D Fight+ 
MobileMan+Moonblaster+Skeek+ 
Super Skeek + ShufflePuck Cafe 
DIEUX DU SPORT 249 
Tennis Cup + Super Ski + Harricana 
+ OutBoard 
EXTRA BALL 269 
Bumpy+Tennis+Sliders+Pinball Mag. 
SUPER STAR ARCADE 199/26! 
Golden Axe + Super Offroad racer 
+ Shadow Warriors + Total Recall 
SOCCER STARS + 299 
E.Hugues intern.soccer + Kick off 2 
+Gazza 2 +Microprose soccer 











ACTION PACK …. … 249 
Sliders + Eagle rider + Chigago 90 + 
figneny pates 

LA COMPIL INTEGRALE .… 199/299 


Lotus turbo + Toyota Celica +Combo 
racer +Super scramble 

DELTA FORCE + 249 
Fire and forget 2+Barbarian 2+Knight 
force + Dark century 











MOVIES STARS .… 299 
Indiana jones+Dicktracy+Moonwalker 
CRAZY STARS … 149/199 
Crazy cars 2 + Wild streets 
+Gauldron 2+ Gazza's soccer 

TITUS ACTION .… 299 





Wild street + Galactic conquero: 

Fire forget 2+ Off shore warrior 
STARS SIX .… 249 
Fire forget 2+Mystical +Dark century 
Swap+Crazy cars 2+ Off shore warrio 
SUPER MEGAT HITS .… 299 
Barbarian+Vindicator+Crafton xunx 
Fire forget +Titan +Superski+Grysor 
GP 500cc+Capt Blood+Slamander 
Target renasades Crazy cars+Basket 
SUPER HEROES 149/199 
Strider 2 +Indiana jones 

Last ninja 2+Espion qui m'aimait 
SUPER ACTION …. 199/269 
Supercars+Impossamole +G.Lineker 
+Switchblade +Toyota celica 























rs .… 269 
F16 + Double dragon + Italy 90 
+Welltris + Turbo out run 
BLACK SOFT 1 .… 299 
Mokowe + Fugjitif + Ali gator 
EPOPEES 1 .… 249 
Alive +Sdaw +Manoir de Morteville 
EPOPEES 2 …… 249 
Fugitif +Secte noire 
EPOPEES 3 …… 249 





infernal house +Mokowe +Saga 
EPOPEES 4 
Crypte des maudits+ 
+Ali gator 
LES JUSTICIERS 3 
Batman+Total Recal 
OCEAN SPORT 149/199 
Manchester united nis tour 
Beach volley + Off road racer 

249 

e 


TOP 25 
Andy £ap 
+Combat zone+Jawa+Army moves 
Oper.hormuz+Tarzan+Gunboat+Ace2 
Strike force har.+20000 avant JC+Atf 
Malefice atlantes+Bobsleigh+Zynaps 
+After the war+Astro marine corps 
Netherworld+Tuer n'est pas jouer 
Exolon+Skatewars+Foot.manager 2 
Tomahawk 
TOP 3 
Tennis 
LES COSTOS 
cirpos QUE és SM 
langerous 2+Popeye2+Andy ca 
AIR COMBAT ACES dé 149/209 
Gunship +Bomber + 
+Gee bee air rallye 
LES BATTANTS 2 
R.dangerous1 & 2 +Doul 
Licence to kill +Satan+Astro marine 
AIR SEA SUPREMACY ….. 199/299 
Silent service + Carrier command 
+ F15 + Gunship + P47 
KARATE ACES 159/229 
Double dragon 1 & 2 + Saboteur 2 
Last ninja 2 + Oriental games 
FUN RADIO 149/199 
Tortues ninja + Back to the future 2 
Gremlins 2 + Day of thunder 
SUPER SEGA VOL 1 179/249 
Shinobi + Super Monaco GP 
+ E-swat + Golden axe + Crackdown 
LE TEMPS DES HEROS .... 195/249 
North and south + Prince of Persia 
Moonblaster 
LES STARS iii 199/249 
SUPERANEERT Builderland + Bumpy 
+Skweek 


249 








149/199 
wdancer 

























TOP ACTION 
Loderunner + 
CAPCOM COLLECTION ….. 


Strider + Un squadron + Led storm 


179/249 


Forgotten world +Ghouls and ghosts 


Dinasty + Strider 2 + Duel 

SUCCES STORY 2 

Disc+Skweek+Sher 
OP 20 


Licence 








in 


+Batty+Game over 2+Ace 1+Rax 
Mange cailloux+MLM 3D + G.P 500 
AsparGP + Devilcastle + Hotshot 
+ FR +Buggy 2 +Zaxx 


+3D Gran: 
+Super ski +Light force 


prix +Battle valley 


COMPIL.EXTRAORDINAIRE 199/249 
Turbo cup + Sapiens + Skweek + Zox 


+Maracaibo + 


obileman + Bump 


+ Cobra + Bactron + Aigle d'or + 


MEGA MIX 





149/239 


Turrican + Chase hq + Shadow 


warriors + Altered beast 
SUPER SIM PACK 


149/199 


Snowstrike + Heavy metal+ Italy 90 


+ Turbo out run 
BIG BANG 2 
Rick dangerous +Chigago + 
atrol +syong ice palace 
ÉIVRET DÉ FAMILLE 


129/159 
Highway 


249 


Manoir de morteville + Troubadour 


+ Rody & mastico 
COLLECTION N°2 
Dragon nie + Beach volley 
le mans + 





... 249 
+ Wec 


Bobble + Monter + 
ay 2 


Arkanoid2 + Renegade + Match 
+ Basket master +Super sprint 


+ Flying shark 


STAR 


+ Ghostbusters 2 


LES GEANTS DU SPORT 


Kick off + Great courts + TT 


15 MEGAST, 


D'HOLLYWOOD 
Batman + Indy Action + Robocop 


rat 259 





199 


Race + 


259 


Navymoves + Exolon + Bu: 2 
à +042 


+ Bombjack + Commando 


+Battle valley + Air Wolf + Bati 
Scoobidoo + Saboteur + Battle ship + 
Ghost & Goblins + Crépuscule Naja 


+ Talisman d'Osiris 
ADS + SHERMAN M4 


199/249 


3D CONSTRUCTION KIT 
AIGLE D'OR /LE RETOUR 
ALIEN STORM 

ART DE LA GUERRE 
AVALANCHE é« 
AVENTURES DE MOKTAR 
BABY JO … 6 ire 
BACK THE GOLDEN AGE 
BADLANDS ne 6 
BAT à 
BATTLE COMMAND . 
BIG RUN sa Ë 
BONANZO BROS SEGA 
BOOLY s ses 
BRAINIES 
BUILDER LAND 
BUMPY'S Arcade Fantazy 
CAPTAIN PLANET 
CARMEN SAN DIEGO 
CHALLENGE FOOT senior 
CISCO HEAT …. 
DEFENDER OF THE Crown 
DISK 
DOUBLE DRAGON 3 

F16 COMBAT PILOT 

FINAL FIGHT 

FUGITIF 

GAUNTLET 3 

GUARDIANS 

G.LOC R360 Sega 

HEROIC FANTAISY 

HERO QUEST + DATAdisc 
HOOK 

HOT RUBBER 

HUDSON HAWK 

INDY 4 

ISHAR 

IRON LORD 

KICK OFF 2 

KILLERBALL 

LA CRYPTE DES MAUDITS 
LA MALEDICTION 
LEMMINGS 
MANCHESTER U. EUROP 
MEGA PHOENIX 
MEGATWINS 

MERCS 

METAL MASTER 
MYSTICAL 
NEVERENDING 

NIGHT SHIFT RE 
OUTRUN EUROPA …. 
PAPERBOY 2 
PAPIN 
PANZA KICK BOXING 
PARAGLIDING …. 
PARASOL STAR 
PREDATOR 2 
PSYBORG 

RACE DRIVIN 
RAMPARTS 
ROBOZONE 
ROBOCOP 2 

ROD LAND 

SHADOW DANCER 
SIM CITY 

SLIDERS 

SMASH TV 

SPACE CRUSADE 
SPACE GUN 

SPIRIT OF EXCALIBUR 
STAR CONTROL 
STEVE MAC QUEEN 





K7/Disk 
249/249 
.. 249 


109/159 


. 99/159 


119/169 


.149/199 


139/179 


.149/199 


249 
109/159 
199 
249 
109/159 
199 
269 
119/159 
149/199 
109/159 
229 
119/169 
199/229 
119/169 
199 
169 
129/159 
199 
129/159 
119/169 
199 
249 
139/179 
229 
199 
199 
159/199 
109/169 
109/159 
119/169 


... 149/199 
.149/199 


125/169 


.109/159 


109/159 
119/169 
139/159 
149/199 
199/249 
199/229 
129/159 
109/159 
199/249 
109/159 
109/159 
109/159 
109/159 
119/159 
109/159 
149/199 

199 
109/159 
109/159 
129/159 
109/159 
109/159 
199/229 





SUPER SKI 2 
TERMINATOR 2. 
TORTUES NINJA 2 





THE ADAMS FAMILY 129/155 
THE SHOE PEOPLE 109/155 
THE SIMPSONS 109/155 
THUNDERJAWS 109/159 
TITUS THE FOX … 109/159 
TOUCHDOWN M AE 159 
VOLFIED È 109/159 
WORLD CLASS CRICKET .169/199 
WORLD CLASS RUGBY .. 229 


WW.F 1 
XYPHOS FANTAISY 199 


ACCESSOIRES 


COPY HOLDER . 189 
FILTRE ECRAN 14" ; .. 169 
SUPPORT IMPRIM. 80 Col .. 149 
SUPPORT MONITEUR 12-14"... 139 
MOUSE MAT (tapis) .65 
ETIQUETTES DISC 3" les 100 …. 32 


LIBRAIRIE 
AUTOFORM BA +disc(plus) . 149 


BIEN DEBUTER 6128 PLUS 78 
LIVRE BASIC 6128 PLUS … 99 
LIVRE LANGAGE MACHINE …. 129 





UTILITAIRES 
ADVANCED OCP ART STUDIO 249 
APPRENDRE L'ASSEMBLEUR . 299 
CARTOUCHE basic AMSTRAD .… 89 


COMPTABILITÉ ALIENOR …... 1690 
COURS DE SOLFEGE 1... 149/199 
COURS DE SOLFEGE 2 149/199 





DESSIN TECHNIQUE 
DESSIN TECHNIQUE TURB 
DISCBASE 


.…… 379 
.725 
. 229 















DISCOLOGY V.6.0 350 
EQUINOXE 299 
FACTURES FACILES 289 
GESTION DOMESTIQUE 259 
GESTION BANCAIRE . 249 
GESTION DE FICHIER .. 299 
GRAPHEUR 275 
GRAPH-MASTER 249 
INTEGRE (L') 1 425 
KWIKFILE . 199 
LA SOLUTION 595 
MASTERCALC . 380 
MASTERFILE , , 400 
MAXAM Assembleur disc 299 
MAXAM Assembleur cassette … 275 
MAXAM Assembleur rom 399 
MENTEL minitel malin + câble .. 395 
MULTIFACE 2 + CPC 499 
MULTIFACE 2 + CPC PLUS 525 
MUSIC PRO 229 
STATGRAPH 350 
THE INSIDER + 159 
RAMDOS .279 
RODOS 299 
ROMDOS .. 299 
ROMBOARD 349 


PACK GESTION 
POCKET BASE 
POCKET CALC arrete 
PROTEXT Traitement texte disc 
PROTEXT Traitement texte K7 
PROTEXT Traitement texte rom 


.. 675 
790 
450 
349 
295 
399 





PAGE PUBLISHER PAO 325 
PROTYPE cs 299 
PAGE publisher PICTURE disc . 159 
PC TRANS diéies 279 
SPRITES ALIVE 349 
TASCOPY 300 
TASPRINT 350 
TAS-SIGN 380 
TASWORD + MAIL MERGE 450 
TRAFFIC CB 189 
TRAFFIC EMISSION 249 
TRAFFIC SWL 249 
CONTEST REF92 249 
PORTRAIT ASTRAL ( 2 disc) 295 
LE TAROMANCIEN 290 
PREVISIONS ASTRALES 290 
UTOPIA ( rom) 299 


MICRO CLUB 99F 
1 - ARKANOID 1+2 
4 - END.Racer +SUPERHANGON 
6 - GRYSOR+GREEN BERET 
8 - STREET Fighter +Tiger Road 
9 - PLATOON+PREDATOR 
10- CRAZY Cars+SUPER SPRINT 
- B.BOBBLE+FLYING SHARK 
14 - TOP GUN+SLAP FLIGHT 
15 - ROLLING THUNDER+RYGAR 
16 - D. THOMPSON+SUOER TEST 
17 - Matchday 2+Basket MASTER 
18 - WONDERBOY+WIZZBALL 
- THUNDERBLADE+1943 


LELLLIERLELTLLE 


z 
D 


Housse complète clavier+écran 


HOUSSE 6128 CPC 109 
HOUSSE 464/6128 PLUS 109 
HOUSSE DISC FD1:/DD11 55 
HOUSSE DMP 2160/3160 79 
HOUSSE CITIZEN 120 D 79 
HOUSSE STAR LC 20 79 
HOUSSE STAR LC 200 79 
HOUSSE STAR NL 10 79 
HOUSSE STAR LC 10 79 


DR DS CUS DS CURE CURE GUN DURS DURS OURS DURS GUN DURS GUN DU ON DE 
NOUS LIVRONS TOUJOURS LES DERNIERES VERSIONS 


BON DE COMMANDE £Y PRESS 
GAGNEZ DU TEMPS ! Commandez par 


à retourner à 


EDUCATIFS 


CEDIC-NATHAN 


ALLEMAND DEBUTANT 6/5e …. 235 
ALLEMAND CONFIRME 4/3e 235 
ANGLAIS CONFIRME 4/3e …... 235 
ANGLAIS DEBUTANT 6/5e 235 


Apprends moi compter MAT/CP 235 


Apprends moi à écrire CP/CE 235 
Apprends moi à lire 1 MAT/CP .235 
Apprends moi à lire 2 CP 235 
ECRIRE sans faute vol 1 235 
ECRIRE sans faute vol 2 235 
EXONATHAN FRANCAIS 6e …. 235 
EXONATHAN FRANCAIS 5e 235 





EXONATHAN FRANCAIS 4e …. 235 
EXONATHAN FRANCAIS 4e …. 235 
LABYRINTHE D'ERRARE ….…... 235 
LABYRINTHE D ORTHOPUS 235 
Labyrinthe Reine des Ombres … 235 
LABYRINTHE LEXICOS 235 
Labyrinthe de MORPHINTAX 235 
Labyrinthe aux cent calculs 235 
LABYRINTHE ANGLOMANIA 1 .235 
LABYRINTHE ANGLOMANIA 2 .235 
LANGUE FRANCAISE CE1 235 
LANGUE FRANCAISE CE2 235 
LANGUE FRANCAISE CM1 235 
LANGUE FRANCAISE CM2 .…… 235 
LANGUE FRANCAISE 6e .. 235 








LANGUE FRANCAISE 5e …….. 235 
LANGUE FRANCAISE 4e 235 
LANGUE FRANCAISE 3e 235 
NATHAN MATHS 6/5e . 235 
NATHAN MATHS 4e 235 
NATHAN MATHS 3e 235 
NATHAN FRANCAIS CP/CE1 235 
NATHAN FRANCAIS CE/CE2 235 
NATHAN FRANCAIS CM1 235 
NATHAN FRANCAIS CM2 235 
NATHAN MATHS CP/CE1 235 
NATHAN ECOLE MATHS CE2 ..235 
NATHAN ECOLE MATHS CM1 ..235 
NATHAN ECOLE MATHS CM2 .. 235 
MICRO C 
ALLEMAND PRIMAIRE .220 
ANGLAIS PRIMAIRE 220 
ITALIEN PRIMAIRE 220 
ESPAGNOL PRIMAIRE 220 
ANGLAIS 4/3e 220 
DECLIC LECTURE 220 
EDUC.MATERNELLE 1 220 
EDUC.MATERNELLE 2 220 
FRANCAIS CE1 220 
FRANCAIS CM 195/220 
GRAMMAIRE 6/5e 220 
LECTURE CP 220 
MATHS 2e CYCLE 1 199/250 
MATHS 2e CYCLE 2 199/250 
MATHS 3e 195/220 
MATHS 4e 195/220 
MATHS 5e 195/220 
MATHS 6e 195/220 
MATHS CP 195/220 
MATHS CE 195/220 
MATHS CM 195/250 
ORTHO CM 220 
GENERATION 5 
DESTINAT. MATHS CE 1/2 249 
DESTINAT. MATHS CM 1/2... 249 
DESTINATION MATHS 6/5e ….. 249 


4 SAISONS DE L'ECRIT CE/CM 249 


4 SAISONS DE L'ECRIT 6/3e …. 249 
SECRET ENGLAND 6/5e .. 249 
SECRET ENGLAND 4/3e … 249 


DEUTSCHES GEHEMNIS 6/5e .249 
DEUTSCHES GEHEMNIS 4/3e .249 
CONQUETE OrthographeCE1/2 249 
CONQUETE OrthographeCM1/2 249 
CONQUETE Orthographe 6/5e .. 249 
CONQUETE Orthographe 4/3e .. 249 





GENIES de | ‘Academie 249 
ADI 
ADI FRANCAIS CE1 279 
ADI FRANCAIS CE2 …. 279 
ADI FRANCAIS CM1 . 279 
ADI FRANCAIS CM2 … 279 
ADI FRANCAIS 6e 279 
ADI FRANCAIS 5e 279 
ADI FRANCAIS 4e 279 
ADI FRANCAIS 3e 279 
ADI MATHS CE1 279 
ADI MATHS CE2 279 
ADI MATHS CM1 279 
ADI MATHS CM2 279 


LT me ee 


DZ VESSICO - BP693 - 06012 NICE CEDEX 1 
TS 93,51,61,30 - 99,97,22.00 






































ADI MATHS 6e 
ADI MATHS 5e 
ADI MATHS 4e 
ADI MATHS 3e 
ADI ANGLAIS 6e 
ADI ANGLAIS 5e 
ADI ANGLAIS 4e 
ADI ANGLAIS 3e 








ET PAR MATIERE 








TRE .279 
APPLICATION ADI PAR CLASSE 


.. 199 


A EUTeUE 


SCANNER DART K7 ou DISC 
DIGITALISEUR VIDI ” 
LECTEUR CASSETTE+CABLE 
MULTIFACE 2 + CPC PLUS 
MULTIFACE 2 + CPC 

SYNTHE VOCAL DISC ou K7 … 
SYNTHE VOCAL+HP DISC/K7 
7 LOGICIELS Educt. vocaux 
EXT.MEMOIRE 64K/464 . 
EXT.MEMOIRE 256K/6128 





QUENOES Te 


Tous les rubans NB les 3 
CITIZEN 1200 

DMP 2160/3160 

STAR NL 10 

STAR LC 10 - LC 20 
CITIZEN SWIFT 24/9 . 





.. 144 





STAR LC10 COULEUR 99 
BOITIER DS40 LA 30x3" . 99 
BOITIER JSY 48 : 48x3" . 109 
JOYSTICKS 
QUICKJOY JUNIOR 59 
QUICKJOY TURBO . 99 
QUICKJOY 2 F 89 
QUICKJOY 3 SUPERcharger … 109 
QUICKJOY 5 SUPERBOARD …. 199 
QUICKJOY VI JETFIGHTER 149 
QUICKJOY TOPSTAR 295 
QUICKJOY NI-5 Nintendo 159 
QUICKJOY SEGA FIGHTER 169 
QUICKJOY Turbo Pedale 279 
QUICKJOY Megastar Junior 199 
QUICKJOY MEGASTAR 329 
QUICKJOY SUPERSTAR 179 
QUICKJOY TOPSTAR PC 299 
CARTE JOYSTICK -> PC 159 
KONIX SPEEDKING 109 
KONIX SPEEDKING Autofire 129 
KONIX THE NAVIGATOR 149 
STING-RAY 149 
MANTA-RAY 129 
QUICKSHOT MAVERICK 1 169 
QUICKSHOT PYTHON 1 119 
QUICKSHOT INTRUDER 1 425 
QUICKSHOT AVIATOR 1 475 
QUICKSHOT FLIGHTGRIP 1 149 
CABLES 
ADAPT.NOUVEAU BUS CPC … 129 
DOUBLEUR DE JOYSTICK 49 


DOUBLEUR DE BUS 
CABLE IMPRIMANTE 
RALLONGE ECRAN/CLAVIER 
RALLONGE ECRAN/CLAVIER + 
CABLE 6128 PLUS A FD1 
CABLE FD 1 

CABLE MAGNETO CASSETTE 
CABLE MINITEL CPC 

CABLE PERITEL CPC 

CABLE PERITEL CPC PLUS 
RALLONGE (ALIM+VIDEO 464) 
CABLE GX4000 à CPC 6128 
CABLE PERITEL SEGA 




























































































GAMEBOY 
GAMEBOY CARRY CASE 
GAMEBOY Amplificateur Son … 
GAMEBOY LOUPE+LUMIERE 
GAMEBOY LUMIERE ross O 
GAMEBOY ALLUME CIGARE … 129 
GAMEBOY LOUPE(MAGNIFIER) 99 
GAMEBOY KIT NETTOYAGE . 
GAMEBOY HOLSTER 
BATTLE BULL . 
BATTLE TOADS 
BEETLEJUICE …… 
BLADES OF STEEL 
BUGS BUNNY 2 
CASTELLIAN 
CASTELVANIA 2 
CHASE HQ . à 
DAYS OF THUNDER 
DOUBLE DRAGON 2 
DRAGON'S LAIR ée 
FERRARI GRAND PRIX 
FINAL FANTAZY 2 
GREMLINS 2 
HAL WRESTLING . 
HIGH STAKES 
HOOK 
HUDSON HAWK 
KLAX En 
KUNG FU MASTER 
MARBLE MADNESS 
MEGAMAN 2 
MICKEY MOUSE 2 
MISSILE COMMAND 
MYSTERIUM 
NAVY SEAL'S 
NBA ALL STAR 2 
NBA CHALLENGE 
NINJA GAIDEN 
OLYMPIC GOLD 
PAPERBOY 2 
PRINÉE QE PERSIA 


99 
129 
199 





ANGAI 
SOCCERMANIA 
SPOT 
SUPER KICK OFF 
SUPER MARIOLAND 
SUPER RC PRO AM 
TEENAGE M TURTLE 2 
TERMINATOR 2 
THE ADDAMS FAMILY 
THE SIMPSONS 
TORTUES NINJA 2 
TRACK MEET 
TURN BURN 
TURRICAN à 
WHO FRAMED R.RABBIT 
WWF SUPERSTARS 
WORLD CIRCUIT SERIES 


C 

FIRE AND FORGET 2 

NAVY SEALS 

NO EXIT 

PANZA KICK BOXING 

PINBALL MAGIC é 

ROBOCOP 2 

TENNIS CUP 2 

WILD STRÉET 
PC-TRANS …. . 

Extraordinaire logiciel de 
ansfert de fichiers à partir de 
votre 
CPC vers IBM-PC ou ATARI-ST 
CAUCEACIEEE 
D'une utilisation facile, rapide et 
fiable. Nécessite un lecteur 3"5 
pour 6128 


SUPER PROMO 


ADVANCED OCP ART SUTDIO 
IMPRIMANTE STAR LC 20 + Protext 

LA SOLUTION Textomat +Datamat +Calcomat 
LECTEUR CASSETTE + CABLE … 
PORTRAIT ASTRAL 

ET e]Ke]c) AAA ARTE ES 


par 50  DISQUETTES 3" 


Pour AMSTRAD 





REF :par10  par20 : 

3"CF2 | 175F | 330F. 
3 12DFDD 69F 130F 
5°14DFDD 56F 105F 


Disquettes certifiées 100% garantie à vie .Livrées avec enveloppes plus etiquettes 


 DISQUETTE DE NETTOYAGE 3" 69F. 


.249 
.2290 
.595 
.… 245 
.… 295 
RE 


745F + 
300 F F90 
250 F * à l'unite par 50 





[ide joins un chèque ou mandat lettre 
LjJe paie à réception au facteur 


8-07 


+ 25F 
Li Je paie par carte bleue et je complète les 2 lignes ci-dessous 














PAIEMENT ETRANGER EXCLUSIVEMENT PAR MANDAT INTERNATIONAL , 
GARANTIE 1 AN SUR LES LOGICIELS mprécisez votre ordinateur LL ]DISC_JK7{]m Votre N° client! 











PRENOM 


CODE POSTAL 


TITRES (garantie échange immédiat) | Qte | Prix Montant 
| 
| carte bleue 
_ | date c'expiration 
| | NOM 
PORT :LOGICIEL JEUX 20F S/TOTAL N° ET RUE 
IMPRIMANTES + CONSOLES 60F PORT 25 VILLE: ss 
UTILITAIRES + ACCESSOIRES  25F TOTAL FAX :  93.97.07.00 
DOM TOM + ETRANGER + 60F 


BOUTIQUE A NICE HOLLYWOOD STAR 8 BD JOSEPH GARNIER 





LE 


SIGNATURE OBLIGATOIRE 





LALLLULULLULULULULULULULLULLLULLULLULULULLLLLULULULLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLULULUU YA NAN N: 








































MASTERCALC CPC.........380 F 


LE MEILLEUR TABLEUR SUR CPC ! 
LE TABLEUR LE PLUS RAPIDE ET LE PLUS PUISSANT SUR 
CPC. IL UTILISE TOUTE LA MEMOIRE (128 KO) 

CAPACITE DE 7000 CASES, JUSQU'A 230 COLONNES OU 
LIGNES DONNEES AFFICHABLES ENTIERES OU JUSQU A 7 
DECIMALES. PERMET LA CREATION DE 99 FORMULES DE 
75 CARACTERES MAXI. TOTAUX ET SOUS TOTAUX DE 
LIGNES ET DE COLONNES COLONNES DE 4 À 24 
CARACTERES ET IMPRESSION SUR 80 OU 136 COLONNES 
MASTERCALC PROPOSE DE NOMBREUSES AUTRES 
FONCTIONS DONT LA CREATION ET L'IMPRESSION 
D'HISTOGRAMMES. UN EXCELLENT OUTIL PRO, POUR 
L'INITIATION OU CALCULS DE BUDGETS , SIMULATIONS 
FINANCIERES , PREVISIONS. LA COMPTABILITÉ ETC 


DISCBASE 229 F 
LE SEUL GESTIONNAIRE ULTRA RAPIDE DE DISQUETTES ! 


99 % DES UTILISATEURS DE DISQUETTES TROUVERONT 
QUE DISCBASE EST INDISPENSABLE! 
DISCBASE EST UN GESTIONNAIRE DE BASE DE DONNEES 
SPECIALISÉ DANS LE CLASSEMENT, LA RECHERCHE DE 
DISQUETTES ET DES FICHIERS QU'ELLES 
CONTIENNENT.POUR CONSTRUIRE VOTRE BASE DE DON- 
NÉES VOUS N'AVEZ QU'A INSÉRER VOS DISQUETTES 
DANS LE LECTEUR, LES UNES À LA SUITE DES AUTRES ET 
LE PROGRAMME LIRA ET ENREGISTRERA LEUR 
CATALOGUE.VOUS POUVEZ DONC RECHERCHER ET 
RETROUVER EN MOINS D'UNE SECONDE LA DISQUETTE 
DANS LAQUELLE SE TROUVE UN FICHIER 
PLUS DE PAGAILLE, PLUS DE TEMPS PERDU EN 
RECHERCHES INUTILES ! 
* JONGLE COMME UN CHAT AVEC LES CATS *MET À JOUR 
AUTOMATIQUEMENT LA LISTE DES CATALOGUES 
‘LISTE ENTIÈREMENT LES DISQUETTES ET LES FICHIERS 
‘IMPRIME LES LISTES ET CATALOGUES. 





Gagnez de l'argent ! faites comme 
les pros, utilisez le meilleur logiciel 
de création de jeux. 

SPRITE ALIVE DISC ….349 F 


SI VOUS VOULEZ RÉALISER VOS PROPRES JEUX AYANT UN 
ASPECT PRO 

C'EST SPRITES ALIVE QU'IL VOUS FAUT 

* BASIC SIMPLE * DETECTEUR DE COLLISIONS VRAIES 

* MOUVEMENT SOUPLE PIXEL PAR PIXEL 

* COMPATIBLE SOURIS, JOYSTICKS, CLAVIER 

* 23K DE MÉMOIRES PROGRAMMÉES. 

* 64 SPRITES SUPER-CHOUETTES * MODE LABYRINTHE 
AUTOMATIQUE 

* COMMANDES AUTOMATIQUES DE MISSILES 

* 70 COMMANDES SUPPLÉMENTAIRES EN BASIC 

* PUISSANT, HYPER RAPIDE GRACE AU COMPILER 

* 6 PROGRAMMES DE DEMO BASIC.+ 2 DE DEMO COMPILER 





KWIKFILE 199 F 


UN PUISSANT GESTIONNAIRE DE DONNEES, POUR LE 
PRIX D'UN SIMPLE JEU ! 


UNE BASE DE DONNÉES À FAIBLE PRIX POUR UNE 
MANIPULATION RAPIDE ET AISÉE DE FICHIERS DE 
DONNÉES 

CARACTÉRISTIQUES : UTILISATION À 100% PAR MENU 

* JUSQU'À 19 RUBRIQUES PAR ENREGISTREMENT * TOTAL 
DES RUBRIQUES * LONGUEUR DE TOUS LES CHAMPS DE 
VARIABLES "28 CARACTÈRES PAR RUBRIQUE (PLUS POSSI- 
BLE MAIS PAS AFFICHÉ) * JUSQU'À 22000 OCTETS PAR 
CHAMP * TRI ALPHA-NUMÉRIQUE SUR TOUS LES CHAMPS * 
RECHERCHE RAPIDE PAR TOUCHE QUI AFFICHE SUR 
L'ÉCRAN TOUS LES ENREGISTREMENTS CONTENANT LES 
DONNÉES DÉSIRÉES * IMPRESSION DE TOUTES LES RUBRI- 
QUES DANS N'IMPORTE QUEL ORDRE ‘RÉPONSE AVEC OÙ 
SANS NOM DE CHAMP * CALCULS DANS LES RUBRIQUES 
(IDÉAL POUR TENUE DE STOCK...) POSSIBILITÉ DE CHAN- 
GER DE FORMULE DE CALCUL DANS TOUTE RUBRIQUE ET 
D'EN AJOUTER * CATALOGUE DE FICHIERS GÉRÉS PAR 
MENUS 


D'ART 












MAXAM  ASSEMBLEUR-DÉSASSEMBLEUR 


ASSEMBLEUR-DÉSASSEMBLEUR, SYSTEME COMPLET DE 
DÉVELOPPEMENT DU Z 80 

LE NEC + ULTRA DU PROGRAMMEUR 

MENU DÉROULANT : LOAD, MERGE, SAVE, PRINT, FIND 
REPLACE, ETC 

ROM : 399 F DISC : 299 F 













CASSETTE : 275 F 


ANNER 








7295F 





directement de votre 

vers votre ordinateur 
CETTE E ee CRT E COTES CROIRE ET [TTC] 
Travaille en MODES 0, 1 ou 2 
16Ko de mémoire vidéo additionnelle 
Contrôleur d'images incorporé 
Compatible 
Livré avec câble RCA, BNC + câble PERITEL 



























VIDI capte et transfère plus de 6 images /sec. 
magnétoscope, caméra, télé 


OCP ART STUDIO 















PAGE PUBLISHER PAO: 325 F 


* PUBLICATION ASSISTÉE PAR ORDINATEUR 6128 

* CRÉEZ TRES FACILEMENT VOS DOCUMENTS, POSTERS, 
PETITS JOURMAUX, LOGOS, FANZINES, ETC... 

* PAGE PUBLISHER P.A.O. PERMET LE CONTROLE, AUSSI 
BIEN DE L'IMPRESSION QUE DU GRAPHISME 


* COMPATIBLE TOUTES IMPRIMANTES MATRICIELLES, EPSON, 


DMP 2160/3160 
* GÉRE PAR ICONES ET MENUS, PAGE PUBLISHER P.A.O 
PEUT ÊTRE PILOTE PARC CLAVIER OÙ JOYSTICK 

* RECONNU COMME LE N°1 DE LA MICRO EDITION PAR LA 
PRESSE EN GB POUR SON RAPPORT QUALITE/PRIX 
PAGE PUBLISHER PICTURE DISC . .159 F 
(PLUS DE 400 FONTES ET DESSINS SUPPLEMENTAIRES) 





PROTEXT TRAITEMENT DE TEXTE 


AMSTRAD CPC 100% N°40" PROTEXT BRILLE PAR SES 
PERFORMANCES 

SANS AUCUN DOUTE LE MEILLEUR TRAITEMENT DE TEXTE 
SUR CPC, RECONNU COMME LE N° 1 PAR TOUTE LA PRESSE 
INFORMATIQUE , 
COMPLET, PUISSANT, HYPER RAPIDE, D'UTILISATION TRÈS 
FACILE. COMPATIBLE TOUTES IMPRIMANTES 

ROM : 399 F CASSETTE : 295 F DISC : 349 F 














UN OUTIL REMARQUABLE DE REPRODUCTION D'IMAGES, DOCUMENTS DESSINS, PHOTOS, ETC 

COMPATIBLE: AVEC * DMP 2000/2160/3000/3160° AMX PAGEMAKER, SOURIS ET CRAYON.‘ CPC DISK OU CASSETTE ( À PRÉCISER) 
DESCRIPTIF : AGRANDISSEMENT X1 - X2 - X3 - X6 * ZOOM * PRINT * LOAD * SAVE * COPY * EDIT * RAJOUT DE TEXTE * 1 OU 2 ECRANS 
IMPRESSIONS DEMI OÙ PLEIN FORMAT * ROTATION ECRAN DE 180 





















"L'ATELIER DE L' ARTISTE" THE ADVANCED OCP ART STUDIO 249 F 


OCP VOUS PERMET DE CREER UNE IMAGE, DE LA REDUIRE, AGRANDIR, COUPER, COLLER, INCLINER,COLORIER GRACE 
AUX 8 PISTOLETS. 16 PINCEAUX ET BROSSES À PEINTURE INCORPORES. PROJECTION D'OMBRES ET DE FONDS POSSIBLE 
SACRÉ MEILLEUR LOGICIEL DE DESSINS ET GRAPHISMES SUR CPC. 


SUPER-PROMO 695 F 


COMPRENANT : THE ADVANCED OCP ART STUDIO + UNE SOURIS GENIUS MOUSE + UN TAPIS SOURIS + UN 
PORTE SOURIS + UNE INTERFACE SOURIS. (SOURIS COMPATIBLE AVEC PAGE PUBLISHER PAO). 





IMPRIMANTES 
STAR LC200 COULEUR + DRIVER 2525 F 
STAR LC200 COULEUR + DRIVER 
+ ADVANCED OCP ART STUDIO 2690 F 
STARLC 20 ns nt té 2090 F 
STAR LC 20 + PROTEXT 2290 F 
DRIVER IMPRIMANTE COULEUR …. 249 F 


‘ce driver permet d'imprimer toutes les images couleurs 
du CPC vers votre imprimante couleur 
STAR LC10 ou LC200 exclusivement 



















MUTTTA(R Te cour 





SI VOUS SOUHAITEZ GELER UN PROGRAMME , LE COPIER 
ENSUITE SUR DISQUETTE OÙ CASSETTEAUTOMATIQUEMENT 
EN APPUYANT SIMPLEMENT SUR UN BOUTON, LA SEULE ET 
UNIQUE SOLUTION C'EST MULTIFACE 2. 
D'UNE UTILISATION SIMPLE À LA PORTÉE DE TOUS. GUIDE 
PAR UN MENU DÉROULANT 
APRES AVOIR LANCE LE PROGRAMME, VOUS POURREZ 
LE STOPPER , LE SAUVEGARDER OÙ ENCORE L'ÉTUDIER 
ET LE DÉTAILLER À VOTRE CONVENANCE, GRÂCE AU 
MULTI - TOOLKIT INCORPORE DANS MULTIFACE 2. 
EN APPUYANT SUR RETURN OÙ EN LE RECHARGEANT LA 
FOIS SUIVANTE IL REPRENDRA AUTOMATIQUEMENT, DEPUIS 
L'ENDROIT OÙ VOUS L'AVEZ GELE 
499 F 


MULTIFACE2 + CPC 464/6128 
MULTIFACE2 + CPC 464/6128 PLUS . 525F 








THE INSIDER 159 F 


L'INDISPENSABLE COMPAGNON DU MULTIFACE 2 
VOULEZ-VOUS TOUT CONNAÎTRE À L'INTERIEUR D'UN PROGRAMME ! 
BRANCHEZ THE INSIDER, avec MULTIFACE 2. LANCEZ UN PROGRAMME 
GELEZ-LE ET ALORS THE INSIDER VOUS REÉVELERA TOUT : IL DÉSASSEMBLE 
COMPLÉTEMENT, CHERCHE ET TROUVE TEXTES ET CODES, AFFICHE ET 
MODIFIE RAM ET REGISTRES DU Z 80, IMPRIME. 


NRRIOHHhohohovvvvvvVvVvVvVvVvVvVVvVvVVvVVVVVVVVVVVVVVVVVVVVVVVVVVVVVNN 


PORTRAIT ASTRAL 295 F 


CERTAINEMENT LE MEILLEUR LOGICIEL D'ASTROLOGIE 
RÉALISÉE PAR LE PLUS GRAND ASTROLOGUE FRANCAIS 
PORTRAIT ASTRAL VOUS ENCHANTERA ET VOUS 
PERMETTRA DE MIEUX VOUS CONNAITRE 

THEMES ASTRALS - HORLOGES ASTRALES - PLANETES 
ASTRALES ETC.ETC 








AUGMENTEZ LA MEMOIRE DE VOTRE CPC ! 
AVEC DK'TRONICS 


EXTENSION MEMOIRE 64K POUR CPC 464/664 499 F 
EXTENSION MEMOIRE 256K POUR CPC 6128 1090 F 
CRAYON OPTIQUE CASSETTE 225 F 
CRAYON OPTIQUE DISQUETTE 325 F 


EXTENSION MEMOIRE: AUGMENTE DE 64 K OÙ 128 K LA 
CAPACITÉ MEMOIRE DE VOTRE CPC 

CRAYON OPTIQUE : PERMET D'"'EXPLOITER LES CAPACITES 
GRAPHIQUES DU CPC 














LECTEUR 3.50/ 800 K POUR CPC 
1090 F 


INDISPENSABLE POUR LES USAGERS AYANT BESOIN DE 
CAPACITÉ DE STOCKAGE 800 K * 80 PISTES * DOUBLE FACES 
POUR L'UTILISER PLEINEMENT IL EST NÉCESSAIRE D 'AVOIR 
UN DES 3 LOGICIELS SUIVANTS RODOS * ROMDOS * RAMDOS 
* ROMDOS ET RAMDOS SONT DEUX LOGICIELS IDENTIQUES 
SAUF QUE ROMDOS EST EN ROM ET NECESSITE 
L'UTILISATION D'UN ROMBOARD POUR SON INSTALLATION, 
COMME RODOS 

*“RAMDOS EST LIVRE EN DISQUETTE. ILS SONT TOUS 
COMPATIBLES AVEC AMSDOS, CPM 2.2 ET CPM + 

* RODOS LIVRÉ EN ROM EST LE PLUS COMPLET, IL OFFRE 
PLUS DE 50 COMMANDES SUPPLÉMENTAIRES, CONFIGURE 
AUTOMATIQUEMENT LE DRIVE B, OFFRE UN SILICON DISK, 
UN BUFFER D'IMPRIMANTE, L'ACCES DISK EST 3 FOIS PLUS 
RAPIDE, COMPATIBLE AVEC AMSDOS, IDÉAL POUR LES 
UTILISATEURS EXPÉRIMENTÉS 

SI C'EST UNIQUEMENT LE STOCKAGE QUE L'ON RECHERCHE 
NOUS VOUS CONSEILLONS ROMDOS OÙ RAMDOS 

LECTEUR 3.50 + ROMDOS 
LECTEUR 3.50 + RAMDOS 
LECTEUR 3.50 + RODOS . 


1295 F 
1195 F 
… 1295 F 
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PROGRAMMES 


Vic une nouvelle fournée de 
programmes au kilo. Il y a de tout : 
des jeux, des utilitaires, du graphis- 
me. Il ne manque qu'un peu de 
musique pour compléter le tableau. 


Pour satisfaire à certaines deman- 
des, les P.A.K. pourront désormais 
atteindre les 2 Ko. Pour ceux qui 
auralent pu manquer quelques 
épisodes, voici de quoi il retourne : 
les P.A.K. (ou Programmes Au Kilo) 
sont des Iistings très courts mais qui 
peuvent être utiles aux débutants 
en leur faisant découvrir des astu- 
ces de programmation ou l'utilisa- 
tion des différentes commandes du 
BASIC. 


Qui réalise les P.AK. ? Mais tout 
simplement les lecteurs de CPC In- 
fos et Il n'est pas nécessaire d'être 
un super programmeur pour pré- 
senter ses oeuvres : quelques lignes 
de BASIC peuvent constituer un 
P.AK. Il n'est pas nécessaire de 
nous envoyer une disquette, un 
simple listing suffit à notre bonheur. 


Ce mois-ci, je vous présente 8 P.AK. 
différents : 


CARMAGIK.BAS : Ce jeu de Nicolas 
Frémont occupe 2 Ko, mais Il s'agit 
tout de même d'un P.AK. puisque 
les règles du jeu ont été modifiées 
(voir plus haut). On vous propose 
de résoudre le carré magique en 
disposant les nombres placés dans 
le tableau. Le but est d'obtenir une 
somme ideritique sur toutes les li- 
gnes et sur toutes les colonnes. Le 
programme vous demandera 
d'abord le numéro de la première 
case à permuter puis le numéro de 
la deuxième case. Lorsque vous 


aurez réussi, le programme vous 
donnera le nombre d'essais pour 
aboutir à ce résultat. 


DATFACIL.BAS : encore un pro- 
gramme de Nicolas Frémont. || per- 
met (le programme, pas Nicolas) de 
saisir des datas d'une manière plus 
rapide : après avoir saisi le court 
listing, il vous sera demandé le 
nombre d'octets par ligne (souvent 
16) et ie nombre de caractères de 
la somme de contrôle. Ensuite Il 
faudra taper (par exemple) AUTO 
100 pour afficher les numéros de 
ligne, un espace et toute la sérle 
de datas collés les uns aux autres 
sulvis par la somme de contrôle. Un 
simple appui sur Enter affichera 
alors la ligne complète avec l'ins- 
truction «DATA» et toutes les virgu- 
les nécessaires. Attention, le pro- 
gramme ne vérifie pas la somme 
de contrôle, donc méfiance. 


LEVER.BAS : Les heures du lever et 
du coucher du soleil, ça vous inté- 
resse ? Il vous suffit de taper le pro- 
gramme «lever.bas» pour obtenir 
ces données. Attention, lors de 
l'entrée des données, n'oubliez pas 
de préciser le signe des coordon- 
nées. Pour la latitude : + au Nord, - 
au Sud et pour la longitude -à l'Est 
et + à l'Ouest. Les résultats doivent 
être corrigés en ajoutant 2 heures 
en été et 1 heure en hiver. 


MEMORY.BAS est un Jeu de Nicolas 
Haignere, il s'agit d'une version du 
célèbre jeu électronique «Simon». 
Vous devez recomposer la série de 
couleurs et de sons choisie aléatoi- 
rement par l'ordinateur. AUx qua- 
tre rectangles de couleur de l'écran 
correspondent les quatre touches : 





F4, F5, F2 et F1. Commencez par 
choisir votre niveau (de 1 à 7), puis 
regardez attentivement l'écran et 
tentez de reproduire la séquence 
lorsque «GO» apparaitra. 


POMME.BAS, proposé par Aurélien 
Gérard, a pour fonction de dessi- 
ner une pomme verte sur l'écran. 
C'est tout et c'est purement esthé- 
tique. 


REKANOID.BAS sort de l'imagination 
d'un auteur allemand mais il a été 
modifié par mes soins afin d'être 
plus simple, mieux animé et plus 
coloré. Vous pouvez le modifier en 
choisissant les couleurs à la ligne 10 
et en modifiant le nombre de points 
nécessaires pour terminer le Jeu (II- 
gne 120, IF P=28, diminuez le 28 pour 
obtenir un niveau de jeu inférieur). 
Rlen ne vous empêche d'ailleurs de 
falre d'autres modifications : «bou- 
clage» du programme en cas de 
réussite où d'échec. En effet, dans 
cette version, le programme stop- 
pe dès le Game Over. Au fait le 
thème du jeu est de casser des bri- 
ques : cela pour prouver qu'il est 
tout-à-fait possible de réaliser des 
jeux fonctionnels en 1 Ko. 


SATELIT.BAS sera utile aux posses- 
seurs de récepteurs satellite : après 
avoir entré les coordonnées de la 
station de réception et celle du sa- 
tellite, vous obtiendrez l'orientation 
de votre antenne parabolique. 


Voila, c'est tout pour ce mois-ci. Je 
vous donne rendez-vous au mois 
prochain en espérant que vous en- 
verrez vos propres P.A.K. à l'adres- 
se suivante : 


Editions SORACOM CPC-Infos - P.AK. 
ne UE 


CARMAGIK.BAS 


19 

28  CARMAGIK par Nicolas FREMONT 

39 pour CPC INFO (fo-PAK) 

48 

5ÿ * (C) PISTACHOS SOFTWARE - juin 92- 

69 ' 

78 CLS:MODE Z:INK 9,{:INK 1,24:BORDER 1:PAPER B:PEN ! 
88 LOCATE 53,2$:PRINT "CARHAGIK par NICOLAS FRENONT" 
9ÿ LOCATE 59,22:PRINT "{C) PISTACHOS SOFTWARE" 


18g LOCATE 79,24:PRINT "-juin 1992-" 

118 FOR i=1 TO 321:PLOT 1,i:PLOT 81,i:PLOT 161,i:PLOT 2 

41,i:PLOT 321,i:NEXT 

129 FOR i=65 TO 321:PLOT 491, i:NEXT 

139 FOR i=1 TO 4ÿ{:PLOT i,65:PLOT i,129:PLOT i,193:PLOT 
i,257:PLOT i,324:NEXT 

149 FOR i=1 TO 321:PLOT i,L:NEXT 

159 FOR i=2 TO 32 STEP 19:LOCATE i,23:PRINT "TOTAL":NEX 

T 

169 FOR i=7 TO 22 STEP 4:LOCATE 42,i:PRINT "TOTAL":NEXT 


179 DIM n(16) 

189 FOR i={ TO 16:n(i)=i:NEXT 

199 FOR j=7 TO 22 STEP 4:FOR i=2 TO 32 STEP t4:LOCATE i 
,jtd=dti:PRINT "No"; d:NEXT i,j 

299 PAPER 1:PEN 9 

219 d=ÿ 

229 FOR j=8 TO 29 STEP 4:FOR i=7 TO 37 STEP 18:LOCATE i 
,j:d=dti:PRINT n(d):NEXT ;,j 

239 FOR i=1 TO 4:t(i)=n(ix4)+n(ix4-1)+n(ix4-2)4n(ix4-3) 
:NEXT 

249 FOR i=5 TO 8:t(i)=n(i-4)+n(i)in(it4)+n(i+8):NEXT 
259 d=5 

269 FOR i:7 TO 37 STEP 19:LOCATE i,24:PRINT t(d):d=d+#1: 
NEXT 

219 d=1 

289 FOR i:8 TO 29 STEP 4:LOCATE 47,i:PRINT t(d):d=d+t:N 

EXT 

29ÿ FOR i:2 TO 8:IF t(i)=t(1) THEN NEXT:CLS:MODE #:INK 
1,24,1:PAPER S:PEN 1:PRINT " BRAVO" :G0TO 489 

399 PAPER D:PEN 1 

319 LOCATE 1,1:PRINT "Coup:":z#15" 

329 z=2+1 

338 LOCATE 45,3:PRINT * 

349 LOCATE 45,4:PRINT 

358 LOCATE 1,3: INPUT "Indiquez le ler 
changer : ",y 

369 LOCATE 1,4:INPUT "Indiquez le 2eme nunero de case a 
changer : ",x 


numero de case a 


379 IF y<L OR y>16 OR xt1 OR x)16 THEN LOCATE 1,1:PEN ÿ 


:PAPER 1:PRINT "IMPOSSIBLE":PEN 1:PAPER 9:GOTO 339 
389 o=n(y):p=nlx):n(y)=p:n(x):0 

398 GOTO 298 

499 IF INKEYS="" THEN 448 ELSE INK {,24 

419 MODE 1 

429 PRINT "Vous avez reussi ce carre magique en" 
438 PRINT 

449 PRINT z;"coups, encore bravo." 

458 IF INKEY$="" THEN 458 ELSE END 


>LA 
> LB 
)LC 
>LD 
)LE 
>LF 
DUT 
BL 
RT 
YEN 
>AU 


)CT 
CV 


>ZR 
DAT 


>ZA 


CB 
>XA 
>LV 


)LE 
M] 
>HX 


)EY 


JW] 
)NH 
)DE 


DNF 
>CC 


>TF 


>LF 
>FV 
>GD 
UE 
>UG 
GX 


>HK 





D'ATFACIL.BAS 


19 ! 

28 ? DATFACIL par Nicolas FREMONT 

38 ' pour CPC INFO (P.A.K.) 

49 ' 

58 ' (C) PISTACHOS SOFTWARE - juin 92- 

69 ! 

78 MODE 2:BORDER L:INK B,1:INK 1,24:PAPER Q:PEN 1 
89 PRINT "DATFACIL par NICOLAS FRENONT 


(C) PISTACHOS SOFTWARE - juin 1992-" 

98 PRINT: INPUT "Nbr d’octets par ligne : ",nbra 

198 INPUT "Nbr de caracteres dans la somme de calculs : 
*,nbrb 

119 a$=CHR$(242):b$=CHR$(243):0$-",":d$="DATA " 

129 FOR i={ TO nbrax2tnbrb:e$=e$ta$:NEXT:e$=e$+d$ 

138 FOR i={ TO nbra:e$=e$+b$+b$tc$:NEXT:e$=e$+CHRS(13): 
KEY 11,e$ 

149 PRINT "Vous pouvez taper votre ligne de DATAs avec 
seulement les octets, sans vous preocuper des virgu 
les et des "+CHR$(34)+"DATAS"+CHR$(34)+", appuyez sur [ 
ENTER] apres chaque ligne." 

158 NEW 

168 ? Attention ! 11 faut sauvegarder 

179 ” le progranme avant de le lancer. 


LEVER.BAS 


1" P.A.K. 9 par Martine COURRIER 

2 CLS:PRINT"LEVER ET COUCHER DU SOLEIL" :PRINT: INPUT" JOU 
R ET MOIS (Ex : 19,8) + ":DA,M:PRINT: INPUT"LATITUDE 
EN DEGRES, MINUTES : ":A1,A2:INPUT"LONGITUDE EN DECRE 
S, MINUTES : ";01,02:PRINT:A3=A1+42/60:03-01402/60:RADI 
=67,2058:P1:3. 14159/26 

3 AS=AS/RADI:DIK NCH2):FOR 1=1 TO 12:READ NCI):NEXT 1:D 
ATA 0,31,59,00, 129, 151, 181,219, 243, 273, 304, 334 

à K=NUMD4DA:DT2K-NCH): IF DT=32 THEN DT-1 

5 IF K366 THEN ? 63 

6 M=1:DA=L:K:1 IC 
7 IF M:12 THEN 19 De 

8 1F KONCH4L)THEN DT-K- (NUM41)) DyS 

9 IF KNGM#L)THEN M:M+1 

18 X=PLAK/T:K=K+1:D=8. 45B-22, 915KC0S(X)-8. 434C0S (2x) -4 
156KCOS (344143, B3XS INC) +0. B6KSIN(2XX)-0. HB2XS IN(3AX) 
11 E<0.09800999140. 51xC0S(X)-3. 197kC0S(2xX)-0. LUG4COS (3 
10-9.154C0S(4HX)-7, 317RSINCX)-9.4712SIN(24X)-0, BOL4SIN 
(3H0-9. 24285 INCAXX) :DE=D/RADI : =TAN(DE) kTANCA3) :AR=-AT 
NCY/SQRC-YAY+1)1+1, 5707633 

12 AC=ARARADI :R1=03/154AC/15:RI=RI-E/60:97-03/15-AC/15: 
ST=ST-E/60:1F RI>24 THEN RI=RI-24 

13 IF RICE THEN RI-RI+24 

La IFCRI-INTIRD)99.99 THEN RI=CINT((RIx199)+0.6))/109 
15 RI=INTURD):R2=(RI-INT(RDD)460: IF ST>24 THEN ST-ST-24 


16 IF ST<ÿ THEN ST=ST+24 

17 IF(ST-INT(ST))»>9.99 THEN ST=(INT((STx199)+9.6))/199 
18 SI=INT(ST):S2=(ST-INT(ST))*x68:hh=INT(r2): jj=INT(s2): 
PRINT'Lever : "USING "#HH:H#E" SRI: INT (r2):PRINT'Cou 
cher : "USING "#H##:###";S1; INT(S2) : END 


)LA 
>LB 
)LC 
>LD 
)LE 
)LF 
)QD 
>DV 


AF 
)2C 


NE 
?TJ 
)J4 


>ZK 


DU] 
>RH 
RJ 


)FA 
KY 


MEMORY.BAS 


19 ' Menory Full par Nicolas Haignere 

29 BORDER 9:1NK 9,9:INK 1,26: INK 2,6:1INK 3,4: INK 4,12:1 

AK 5,24 

38 CLEAR:DIM t(58),g(59):MODE 9: INPUT "Level (1-7)",cil 

F c<t OR c)7 THEN 38 

48 NINDOW #1,1,9,2,11:WINDOW H2,12,29,2,11:NINDOW #3,1, 

9,15,24:WINDOW #4,12,28, 15,24 

58 CLS:FOR z=2 TO S:w=w+1:GOSUB L7D:NEXT 2 

69 LOCATE 1,1:PRINT " ":s=g:d=d+{:x=INT(RND()#4+{): IF 
d=cxiÿ THEN PRINT "Gagn{":G0TO 158 

79 t(d)=x:FOR t=<1 TO ZAB:NEXT t 

84 FOR h=! TO d:FOR t:1 TO BYB/c:NEXT tiw=t(h):z=tih)+1 
:GOSUB 17B:NEXT h 

94 LOCATE 1,1:PRINT "GO" 

199 IF INKEY(29)=8 THEN w=1:GOSUB 169 

119 IF INKEY(12)=ÿ THEN w=2:G0SUB 169 

129 IF INKEY(13)=9 THEN w=3:GOSUB 169 

139 IF INKEY(14)=9 THEN w=4:GOSUB 164 

149 IF gts)@t(s) THEN PRINT "Score : ";d-1:FOR s=18 TO 
2998 STEP 4B:SOUND 1,s,2:NEXT s:GOTO 154:ELSE IF s<d T 
HEN 199:ELSE 69 

159 CLEAR INPUT: CALL &BB18:G0TO 39 

168 s=stli:g(s)=wtz=wt+{ 


174 PAPER Hu,9:CLS #u:SOUND 1,198/cxz:PAPER Hw,2:CLS #w 


:FOR t=1 TO SYB:NEXT t:RETURN 


P OM ME. B 


5 'pak 5 par Aurelien GERARD 
14 o=1 

29 x=359 

39 y=25ÿ 

4g MODE 2 

58 INK 9,9 

69 BORDER 4 

78 INK 1,18 

84 DEG 

99 MUVE 8,9 

199 ORIGIN x,y 

119 FÜR a=ÿ TO 229 

128 DRAU o*C0S!a),0#SIN!a),i 
139 DRAW 6#5IN(a),0o#C0Sta),1 
149 0=0+1,2 

{5ÿ NEXT 

169 o=1 

179 x=4ÿ5 

188 y=319 

194 MOVE 8,8 

289 ORIGIN x,y 

218 FOR a=9 TO 45 

228 DRAU o#C0S(a),o*SINia),f 
238 DRAW otSIN(a)i,oxC0S(a),1 
248 0o=o+1.2 

25ÿ NEXT 








LA 
)EV 


XX 


>LD 


XKT 
>XK 


»YC 
VE 


)TE 
DZ 
DC 
>DF 
)DJ 
AR 


DFE 
DHE 
)XC 
>XD 
)BH 
>FC 
>VK 
>ND 
>LA 
)RB 
LE 
HE 
>WH 
vW] 
>RJ 
>EB 
PE 
>DF 
>DC 
>YA 
)2D 
)BE 
JW] 
>UK 
>RK 
>EC 








REKANOÏD.BAS 


5" P.A.K, {1 par Sebastien BOBACH (CPC international) 
19 MODE 1:PAPER S:BORDER 9:INK 8,8:INK 1,25:INK 2,5:INK 
3,15:PEN 3:ENV 1,15,-{,G:PRINT" (---------- 
FRRRpereS DN:FOR a=2 TO 21:LOCATE Z,a: PRINT! MALOCATE 33 
LSIFRINTN OM INENTILOCATE Ja, 2:PRINT" Points: :LOCATE 34,8 
:PRINT'Vie(s):":c=14 

28 FOR a=3 TO 32:PEN 2:LOCATE a, INT(RND#11)+2:PRINT CHR 
$(143):NEXT:FOR 1:1 TO 4:GOSUB 129:1F 153 THEN LOCATE ! 

3,11:PRINT'GAME OVER" :END 

39 CALL 8BB18:PEN f:x=INT(RND429)+4:y=2:d=-1:bz=1:LOCATE 
c,22:PRINT" “:ez15 


4ÿ LOCATE x,v:PRINT" "ssl INKEY(83=ÿ AND ci THEN czc- :7 


l 

58 IF INKEY(1)=8 AND c<29 THEN c=c+1 

69 x=x+td:y=y+b:1F x<4 THEN d=1 

78 IF y=21 AND x<c OR y=21 AND xc+4 THEN SOUND 1,191! 

9,15,1:NEXT ELSE IF y=21 THEN b=-1 

89 IF y<3 THEN b=1 

9ÿ IF x>31 THEN d=-1 

199 IF TEST(xx16-1,(25-y)#16)=2 THEN p=p+1:SOUND 129,19 

6,9,15,1:GOSUB 129:1F y>2 THEN b=bx-1 

119 LOCATE x,y:PRINT CHR$1231) ; :LOCATE c,22:PRINT" ---- 
";:G0TO 49 


12 LOCATE 35,4:PRINT USING"###";p:LOCATE 36, 18:PRINT 4 ) 


-l:1F p=28 THEN LOCATE 14,11:PRINT'SUPER !":END 
139 RETURN 





A4 


SATELIT.BAS 


18 " P.A.K. 19 par Dominique COURRIER 

29 MODE 2:CLEAR:PRINT'Orientation d'antennes paraboliqu 

es pour la t{l{vision par satellite":PRINT:PRINT"Coordo 

nnles de la station de riception":INPUT'"Latitude (Degr 

{s,Minutes) : "D, M:LAT=D+M/68: INPUT"Longitude (Degri 

s,Minutes) : ":D,M 

34 INPUT" (Est / (Ouest : ";A$:LONI=D+M/6 

S:PRINT:PRINT:PRINT"Position du satellite sur l'{quateu 

rs": INPUT" (Degris,Minutes) : ";D,M: INPUT" 
(ist / (Ouest : ":B$:LON2=D+N/69:A$=UPPERS( 

LEFT$(A$,1)):B$=UPPERS(LEFTS(B$,1)) 

49 IF AS$=B$THEN LON=LON2-LONI ELSE LON=LON2+LONI 

58 IF LON2)LON{ THEN IF B$-"E"THEN R$="E"ELSE R$="0" 

68 IF LON2<=LONI THEN IF A$="E"THEN R$="E"ELSE R$="O" 

78 Li=PI/189xLAT:L2=PI/189xLON:AZ=(ATN(TAN(L2)/SIN(L1)) 

)#188/PI:S1I=(ATN((COS(L1)*xCOS(L2)-4.15)/SQR(1-COS(L1) "2 

#COS(L2)°2)))x189/PI:PRINT:PRINT:PRINT'Orientation de | 

antenne parabolique ":PRINT:PRINT"Azimuth ete 

84 PRINT INT(AZ);"Degris"; INT((AZ-INT(AZ))460) ; "Minutes 

- MjtIF R$="EMTHEN PRINT'Est"ELSE PRINT'Ouest" 

98 PRINT'Eltvation : ";:PRINT INT(SI);"Degr{s";INTC(S 

I-INT(S1))*69) ;"Minutes" : END 


)FE 
>2V 


>LA 
JC 


)EU 


)BR 








(CT ETO) NN ST. NTe7:\[2 TER Avec ce logiciel de Gestion, vous allez 


“pouvoir gérer votre comptabilité per-| 
sens wrm um uw | | sonnelle de manière simple et fiable : 


Re oe Ouelques_ caractéristiques_: 

- Gère de 1 à 10 comptes. Protection possible de chaque compte par code d'accès 
- Capacité de plus de 14000 opérations. 

- Sorties écran, imprimant ou fichier texte. 

- Sorties multicritères : 

























PL PS RE 










18808 AMSTRAD CPC 6128 2338.08 19518 .08 

QUE, 12681 CONSULTATION MÉDECIN 118.88 140.2 - Relevé de compte avec solde réel. 

ROUX URSDMENT 5.5. sn 197.98 1S14S.7 - Relevé de compte avec solde opérations pointées 

Feu lei 8 HA - Recherches entre dates / entre montants min et max... 
DT RAT Ho AU un D - Liste des chèques émis entre deux dates ou numéros. 
RUN 00€ RO ARCENT PE ER - Bilan des différents comptes. 
Pélbnecun 1008 FÉDE 1° fi à HAE - Copie d'écran à tout moment. 


- Utilitaires d'écran et d'imprimante. 
- Saisies guidées et protégées contre les erreurs. 
- Commandes par barres de menus. 


GRAPHEUR | GESTION DE FICHIERS 


Visualisez vos données sous 
formes de graphiques 






[15 a 66] saut rest Mo 12H55 Ocewp. 1x [iolde: 1237.44 


28/86/87|41 Enregistrement suivant ‘ENTER’: Page suivante Fi Fin |2 LECTEURS 













SELECTION DE FICHIER 





Avec ce logiciel très puissant, vous allez apporter un style professionnel à RU: 
vos documents. 
données peuvent être entrées manuell t ir d’aut RETOUR AU MENU......,,,,..,,.. Fi 
Les donn pe rl ellement ou provenir d’autres CHNCOONT DE LÉCTÉUR 
CREATION DE FICHIER 


ciels. 
1 ps de représentations graphiques (ligne, camembert, histogramme, 
cumul, co 








urbe, surface, nuage de points, pyramides...) sont affichables. SELECTION DU FICHIER... 
Vous disposez de 10 fenêtres entièrement indépendantes dont vous pou- EFFACER LE FICHIER..... #5 
vez déterminer les positions, tailles. PERTE dit bi: : qu 
Tous les paramètres des graphiques sont modifiables (hauteur, épaisseur Dur 
des traits, profondeur pour les représentations en 3 dimensions...) TOUCHES CURSEUR. . ss. + à 





FICHIER: KL) IMPRIMANTE: ji) LIBRE :ÆUZ|ENR. No: 





81/08/88 |--H-- | 











" #ÿ Tableau Edition Donnee Graphique Fenetre Option Caractere à 








Enfin une gestion de fichiers 
puissante et conviviale ! 


L'utilisation des 128 Ko de votre micro donne à ce logiciel des capacités re- 
marquables. Avec ses barres de menus et sa gestion des entrées/sorties empé- 
chant toute erreur de manipulation, vous parvenez rapidement au résultat 
désiré. 
3 types de champs sont possibles (Caractères, logiques et dates avec controle de 
validité), les enregistrements peuvent avoir une taille de 255 caractères,et cha- 
que fichier peut posséder jusqu’à 20 champs !. 
La saisie des données se fait au moyen d’un éditeur pleine page. 
EE Bien sur la modification ou la suppression d’enregistrements est possible. Vous 
Conuis 128 accédez aux enregistrements désirés soit par leur numéro, soit par n'importe 
uel critère portant sur un ou plusieurs champs (Par exemple : NOM="DU- 
gË d RE + ONT"' OÙ NOM="DURAND") 
A LCR É Vous pouvez trier votre fichier sur n'importe que] champ en sens ascendant 
Éd à ou descendant. 
Les sorties sur écran ou imprimante correspondent toujours à vos désirs : Un 
module de création de masques de sorties vous permet de placer les champs où 
vous le souhaitez sur l'écran ou sur l'imprimante ! 




















Prevision 








TA D « 


BON DE COMMANDE à retourner à 
:  MICROLOGIC EDITION - B.P. 18 - 91211 DRAVEIL CEDEX 
Répondeur : (1) 69.21.61.65 - Minitel : (1) 69.24.49.08 








Pour présenter vos réalisations, vous disposez d’un puissant module 
d'écriture vous proposant de mutilples possibilités : 





M # Tableau Edition Donnee Graphique Fenetre Option Caractere ! Adresse : 


Je vous prie de bien vouloir me faire parvenir les produits suivants : 
C] Gestion bancaire 6128/6128+ (Disquette 3") 265,00 Frs 
[] Gestion de Fichiers 6128/6128+ (Disquette 3") 310,00 Frs 
[] Grapheur 664/6128/6128+ (Disquette 3") 295,00 Frs 
[] Pack1: Gestion bancaire+Gestion de fichiers 485,00 Frs 
Q 








Pack2: Gestion bancaire+Grapheur 465,00 Frs 
[] Catalogue des produits pour CPC GRATUIT 
GRAPHEUR fonctionne sur CPC 664/6128/6128+, et est accompa- Je choisis de régler le montant de ma commande par : 
gné d'un manuel de plus de 50 pages vous permettant d'exploiter 





aun maximum ses Capacités. :  [] Chèque O] CB.No:ïlriririilrir ri ltrrr)Lirrr) 
Expire fin : 
C] Mandat C] Contre Remboursement (+40 Frs) 
RCS CORBEIL 380 176 099 00014 - APE 7708 - CCP LA SOURCE 31 363 4 K 








Sébastien BIGEARD 


Ke 








Valable pour CPC 6128 


"DESSIN" peut vous permettre de créer des 
écrans pour vos jeux (présentation, décors, …) 
ou tout simplement de dessiner pour le plaisir. 


V: pouvez avoir jusqu'à 4 
images à la fois en mémoire. 

Pour chaque Image, vous pouvez 
modifier la palette de couleurs 
comme vous le désirez, celle-ci 


étant sauvegardée avec l'image. 


Ce programme fonctionne dans les 
3 modes. || permet donc de créer 
des images, de les sauvegarder et 
de les recharger. 


= 


DESSIN .B 
18 ' N'oubliez pas de charger 
28 
38 ' "BANKMAN" avant ce progranme ! 
4g 
SO! HAXMREINENNENERNEENEE 
68" + DESSIN * 
ta! x 
8g ? x par * 
99!" # * 
199 ’ x S(bastien BIGEARD : 
119 * x 4,Ch. du Rabotteaux 


129 ' x 49539 BOUZILLE + 


130 AIO PIOMMEMEEEENE 
149 


158 SYMBOL 255,224,224:MODE 1:TAG:INK 1,8:INK 2,9: INK 3 


,B:INK 9,9:BORDER S:BORDER $ 


169 co=1:ti$="DESSIN": Jong=LEN(ti$) : longp=long*B:h=(639 


-1ongx48)/2 
179 MOVE 1,399:GRAPHICS PEN 1:PRINT tif: :PEN 2 


188 rh=h:hc=1:v=216:vc=398:FOR i=1 TO 8:FOR ii={ TO lon 


gp:co=coti:1F co)2 THEN co=i 


198 IF TEST(hc,ve)=1 THEN MOVE h,v:GRAPHICS PEN co::PRI 


NT CHRS(255); 
288 h=ht6:hc=hc+2:NEXT 


A 


Attention ! Une image créée dans 
un mode ne peut être rechargée 
dans un autre mode. (vous pouvez 
essayer!) 


Lorsque vous dessinez (à l'aide des 
touches fléchées), vous avez accès 
à 2 menus : 


- Touche espace = menu général 
- Touche return = menu graphique 





219 v=v-G:ve=ve-2:hc={th=rh:NEXT:TAGOFF 
229 LOCATE {,1:PRINT ‘ 


S 


Tapez ce listing et sauvegardez le 
sous le nom de “DESSIN'. Ce 
programme fonctionne à l'aide du 
programme BANKMAN situé sur la 
disquette système n°1 (CP/M PLUS) 
livré avec l'ordinateur. 


Pour utiliser "Dessin", vous devez 
donc charger d'abord BANKMAN 
Gun ‘Bankman') puis ensuite 
charger DESSIN (run "Dessin"). 


>LB 


MLOCATE 12,2:PEN 1:PRINT DYE 


"SEBASTIEN BIGEARD':PEN 3:PRINT:PRINT:PRINT:PRINT:PRIN 


)LA T TAB(17) "PRESENTE" 
LB 238 INK 1,24:INK 2,15:INK 3,2 UP 
LC 249 GOSUB 2979 )PG 
LD 258 ON ERROR GOTO 2278 )QG 
JLE 268 DIM cpt5, 16) AC 
LE 279 MODE L:INK 8,8:PAPER :BORDER 9: INK 1, 24:PEN 1 RH 
Le 289 LOCATE 8,11:PRINT "Dans quel node voulez-vous" :LOCA )XM 
LR TE 8,13: INPUT" travailler (9,1 où 2) ";n 
)LJ 299 IF n<3 OR n>2 THEN 289 >RV 
?RB 399 IF n(>2 THEN GOTO 358 RE 
RC 319 FOR u=2 TO 5 DuB 
>RD 329 cpin,@)=B:cpln, 11:24 >RD 
RE 338 NEXT )EB 
'RF 349 nc=1:c={:te=1:ep=1:col=89:GO0T0 429 )GB 
»JU 359 IF mO1 THEN GOTO 499 >RB 
369 FOR n=2 T0 5 )uG 
>UD 378 cp(n,8)=ÿ:cptn,t)=24:cp(n,2)=2:cp(n,3)=6 >ML 
389 NEXT EG 
de 308 ne=3:cztite=1tep=2:col=40:G0TO 428 >GF 
KL +20 FOR n°2 T0 SFOR 259 TO Léiçp(n, 2) +2: NEXT:cpln, 15) )JG 
>RH 419 nc=15:c=15:te=15:ep=2:col=24 )BA 
429 cc=c:MODE 8 »ZD 
RU 438 INK 9,8: BORDER D:PAPER 9 DVH 


44g CLS 

459 FOR n°2 TD S5 

468 :SCREENCOPY, n, 1:NEXT 

478 bb:1 

489 ‘#4 menu XXk 

499 MODE ! 

598 INK 8,0:PAPER 9:BORDER 9 
519 INK 1,24:INK 2,2 


528 PAPER 2:LOCATE 15,3:PEN 1:PRINT'MENU GENERAL" :PAPER 


ÿ 


539 PRINT:PRINT:PRINT:PRINT TAB(7) "{ -) Crier ou reche 


rcher image":PRINT 

549 PRINT TAB(7) "2 -» Charger image":PRINT 
558 PRINT TAB(7) "3 -» Stocker inage":PRINT 
569 PRINT TAB(?) "4 -> Contenu disque":PRINT 
579 PRINT TAB(7) "5 -» Instructions" :PRINT 
588 PRINT TAB(7) "6 -> Fin du progranne" 

59ÿ PEN 2:LOCATE 7,22:INPUT"Votre choix ";ch 
689 IF chC1 OR ch>6 THEN 484 

619 IF ch<>6 THEN GOTO 678 


628 CLS:PEN L:LOCATE 13,11:PRINT"FIN DE PROGRAHME":LOCA 
TE 4,13:PEN 2:PRINT" (Pensez @ sauvegarder vos images)" 


639 LOCATE 12,25:PEN 1: INPUT"Confirsation o/n ";r$ 
649 IF r$("o" AND r$"n" THEN 638 

659 IF r$="o" THEN END 

669 GOTO 488 


679 IF ch=4 THEN CLS::DIR,"*.bin":G0SUB 2ÿ79:G0T0 488 


689 IF CH=5 THEN IN=1:G0TO 185ÿ 


699 LOCATE 7,22: INPUT"No d'image entre 2 et 5 “;s:LOCAT 


E 7,22:PRINT" u 
799 IF s<2 OR 55 THEN 699 

719 IF ch<> 1 THEN GOTO 754 

728 HODE n 

738 GOSUB 2969 

749 GOTO 969 


758 LOCATE 7,23:PRINT"(8 car. maxi)":LOCATE 7,22: INPUT" 


Nom de l'inage ";n$ 

768 IF ch=3 THEN 869 

178 "X4# charger *## 

789 MODE n 

799 nn$=N$+".COU":OPENIN NN$ 

889 FOR z=9 TO nc:INPUT#O,cp{s,z):NEXT 
818 CLOSEIN 

829 FOR z=8 TO nc:INK z,cp(s,z):NEXT 
839 LOAD n$ 

849 :SCREENCOPY, 5,1 

859 GOTO 488 

868 ’+#x stocker +x4 

878 MODE n 

889 nn$=n$+",COU":OPENOUT nn$ 

899 FOR z=ÿ TO nc:WRITE#9, cp(s,2):NEXT 
99ÿ CLOSEOUT 

918 GOSUB 2869 

928 LOCATE t,1:PRINT SPACE$(col) 

934 SAVE n$,b,49152, 16384 

948 GOTO 489 

95ÿ "xxx dessin #4x 

969 PRINT CHR$(23) ;CHR$(1):GRAPHICS PEN cc:PLOT x,y 
979 ‘ 


DUC 
>VG 
WG 
DWK 
>TC 
)JB 
VG 
>MM 
>DG 


MF 


>RH 
>RU 
DUA 
)RB 
)NA 
)TC 
DUT 
)TZ 
DXU 


)BE 
AE 
>PQ 
>AA 
)YB 
)YB 
>KQ 


RP 
TG 
>LF 
>PK 
)AC 
>HH 


>MP 
)TE 
>HB 
>WH 
DHJ 
>FA 
)EQ 
)RA 
)QD 
)AB 
)TE 
>MB 
)PB 
>HN 
>RK 
>PK 
DAV 
TG 
)AB 
TE 
NT 
TG 


985 IF INKEY(18)=ÿ THEN GOSUB 2389:GRAPHICS PEN cc:PLOT )ED 
x, Yt:SCREENCOPY,5,1:CLEAR INPUT:PRINT CHR#(23);CHR$# (4) 
:GOSUB 1158 

999 IF INKEY(47)=8 THEN GOSUB 239S:GRAPHICS PEN cc:PLO )CD 

T x,y::SCREENCOPY,s,1:CLEAR INPUT: PRINT CHR$(23) ;CHR$ (8 
l:G0TO 489 


1999 1F t=ÿ THEN GRAPHICS PEN cc:PLOT x,y >JK 
1919 IF INKEY(ÿ)=8 THEN y=y+#1 )WD 
1929 IF INKEY(2)=ÿ THEN y=y-1 DE 
1938 IF INKEY(8)=@ THEN x=x-ep >YN 
1849 IF INKEY(1)=9 THEN x=xtep )YE 
1959 IF x<ÿ THEN x=ÿ NF 
1969 IF x>639 THEN x=639 )RZ 
1979 IF y<ÿ THEN y:4 )NK 
1989 1F y»383 THEN y=383 JR 
1999 IF INKEY(6)=8 THEN t=1:PRINT CHR$(23) ;CHR$ (8) >TC 
1199 IF INKEY(22)=9 THEN t=P:PRINT CHR$(23);CHR$(1) JUX 


1119 IF t=1 THEN GRAPHICS PEN c:DRAW x,y:GO0TO 1139 >TW 
1128 GRAPHICS PEN cc:PLOT x,y )YX 
1139 PEN te:LOCATE {,1:PRINT "I,":S5;" ":LOCATE 7,1:PRIN DRV 
T CHR$(243);X:LOCATE 13,1:PRINT " ";CHR$ (249) ;Y 


1149 GOTO 97 >FH 
1159 **4* nenu graphique +## DXK 
1169 GOSUB 2959 >UR 


1178 LOCATE {4,2:PAPER Z:PRINT "MENU GRAPHIQUE":PAPER Ÿ )BP 


1188 PRINT:PRINT:PRINT UM 
1199 PRINT TAB(7) "{ -» Changer une couleur":PRINT )BY 
1249 PRINT TAB(7) “2 -» Tracer un cercle":PRINT »XD 
1219 PRINT TAB(7) "3 -> Remplir une zone (FILL)":PRINT FR 
1228 PRINT TAB(7) "4 -» Tracer une ligne":PRINT > XP 
123$ PRINT TAB(7) "5 -» Effacer l’imnage":PRINT JW 
1248 PRINT TAB(7) "6 -> Changer coordonn{es":PRINT >CA 
1258 PRINT TAB(7) "7 -» Instructions":PRINT TL 
1269 PRINT TAB(7) "8 -»> Quitter le menu" )MY 
1279 PEN 2:LOCATE 7,24: INPUT" votre choix ";ch DUZ 
1289 IF ch(i OR ch>8 THEN 1278 )VB 


1299 CLS:PEN 1:1F ch=8 THEN GOSUB 26D:PRINT CHR$(23);C DEJ 
HR$(1):PLOT x, y:RETURN 

1388 ON ch GOTO 1319,1599,1759,2119, 1839, 2929, 1858 )QR 
1319 LOCATE 2,7:PRINT"1 -> Changer de crayon":PRINT >DG 
1329 PRINT TAB(2) "2 -> Changer une encre avec INK":PRI DLZ 
NT 


1338 PRINT TAB(2) "3 -> Changer la bordure":PRINT >26G 
1348 PRINT TAB(2) "4 -» Visualiser tous les crayons" »GV 
1359 LOCATE 2,16:PEN 2:INPUT"Votre choix ";ch DUC 
1369 IF chti OR ch>4 THEN 1358 VV 
1374 CLS:PEN 1 )TA 
1389 ON ch GOTO 1399, 1439, 1569, 1499 )AE 
1398 LOCATE 14,12: INPUT"No de crayon ";c DMP 
1498 IF c<ÿ OR conc THEN 1398 NV] 
1419 GOSUB 2869 WG 
1429 PRINT CHR$(23) ;CHR$(1):PLOT x, y:RETURN >NQ 
1434 LOCATE 14,11: INPUT"No de crayon ";i )MP 
1449 IF i<ÿ OR inc THEN 1438 DL 
1458 LOCATE 14,13: INPUT" No de l'encre "icp{s,i} >VA 
1468 IF cpls,i)<ÿ OR cp(s,i)26 THEN 1459 >FP 
1479 GOSUB 2869:INK i,cp(s,i) )XT 
1489 PRINT CHR$ (23); CHR$(1) :PLOT x, y:RETURN NX 


149$ LOCATE 7,2:PEN 2:PRINT'No de crayon 

ncre":PEN ! 

1598 FOR j=9 TO nc 

1519 LOCATE 12, j+4:PRINT j 

1528 LOCATE 21, j+4:PRINT"-»" 

1539 LOCATE 29, j+4:PRINT cp(s, j) 

1549 NEXT:GOSUB 2979:CLS 

1559 GOTO 117 

1568 LOCATE 15,12: INPUT" No d'encre “;bb 

1578 IF bb<ÿ OR bb>26 THEN 1568 

1588 GOSUB 2869:PRINT CHR$(23) ;CHR$(1):PLOT x, y:RETURN 

1599 LOCATE 9,9:PRINT"{ -> Tracer un cercle" 

1689 PRINT:PRINT TAB(9) "2 -» Tracer un disque" 

1619 PEN 2:LOCATE 9,14:INPUT"Votre choix ";ch 

1628 IF ch<i OR ch>2 THEN 1618 

1638 CLS:PEN ! 

1649 LOCATE 19,11: INPUT"Rayon (en pixels) ";r 

1658 LOCATE 19,13: INPUT"Angle (en degris) ";w 

1669 IF w>368 THEN w=369 

1679 GOSUB 2569 

1689 DEG 

1698 FOR j=1 TO w 

1798 1F ch=1 THEN PLOT x+rxC0S(j),y+r#SIN(j),c:GOTO 173 

ÿ 

1719 MOVE x,y 

1728 DRAW xtrxC0S(j),y+r#SIN(j),c 

1739 NEXT 

1749 LOCATE 1,1:PRINT SPACES(col):PRINT CHR$(23) ;CHR$(1 
L:PLOT x,y:RETURN 

1758 LOCATE 9,12:INPUT"No de crayon pour FILL "if 

1769 IF f<ÿ OR f>nc THEN GOTO 1758 

1779 GOSUB 2969 

1789 MOVE x+2,y+2 

1798 FILL f 

1889 LOCATE 1,1:PRINT SPACES$(col) 

1819 PRINT CHR$(23);CHR$(1) :PLOT x,y 

1829 RETURN 

1835 GOSUB 2869:CLS:x-=9:y=0:t=8 

1849 PRINT CHR$(23);CHR$(1):PLOT x, y:RETURN 

1859 MODE 2:INK 1,8:INK 8,19:BORDER {:PAPER Q:CLS:PAPER 
1:PEN D:LOCATE 35,1:PRINT"INSTRUCTIONS":PAPER Y:PEN 1 

1869 PRINT"Voici quelques explications pour vous guider 
0" 

1878 PRINT 

1889 PRINT'Menu g{ntral -> touche "ESPACE" 

hique -> touche "RETURN!" 

1899 PRINT:PRINT'Pour dessiner, vous devez bloquer e 

n mode ’TRACER'. Pour cela, il vous suffitd'appuyer une 
fois sur la touche 'ENTER'. Vous pouvez ensuite dessi 

ner en vousd{pla\ant avec les touches du curseur." 
1989 PRINT:PRINT"Pour d{placer le curseur sans dessiner 
, Vous avez deux solutions :" 

1919 PRINT"  - vous appuyez une fois sur la touche '$ 
"et vous pouvez vous d(placer avec les touches du 
curseur." 
1928 PRINT" 
du curseur en choisissant 

raphique." 
1938 PRINT:PRINT'L'option 'Tracer une ligne’ permet de 


No de l'e 


Menu grap 


- vous entrez directesent les coordonn(es 
l'option dans le menu g 


WX 


)LC 
JUX 
Duc 
DAJ 
DUE 
>MH 
>KU 
WP 
)AÀ 
>UX 
>XD 
UN 
)VQ 
>RK 
>VQ 
)VG 
)RJ 
>XE 
)YG 
»GD 
)BE 


)MK 
)BX 
)LC 
> AH 


>AP 
)2X 
XF 
LV 
)TF 
>BU 
DH 
)FE 
)AQ 
NX 
)FD 


)ZE 


WF 
)CD 


>LK 


>VQ 


)NU 


DT 


>TD 


tracer une ligne automatiquement du pointdu curseur gr 

aphique au point que vous avez rentr{." 

1949 PRINT:PRINT'Pour remplir une zone, vous devez 

d'abord tracer les limites de cette zone.Celle-ci doi 
t toujours etre bien encadrie par les linites. Si la 
zone touche"; 

1959 PRINT"un bord de l'{cran autre que le bord haut, 
il n'est pas n{cessaire de tracer delinite le long de c 
e bord. Apris cette op{ration, vous devez d{placer le c 
urseur"; 

1968 PRINT"@ l'int{rieur 
uvez s{lectionner 
197ÿ CLEAR INPUT 
1988 LOCATE 32,25:PRINT"PRESSEZ UNE TOUCHE" 

1998 IF INKEY$="" THEN 199ÿ 

2999 IF IN=1 THEN IN-9:G0TO 484 

2819 GOSUB 2869:PRINT CHR$(23) ;CHR$(1):PLOT x,y:RETURN 


de la zone et ensuite vous po 
l'option dans lemenu graphique." 


282ÿ LOCATE 14,11: INPUT"coordonnie X ":x 

2939 LOCATE 14,13: INPUT"coordonnte Ÿ ";:y 

2848 MOVE x,y:t=#:GOSUB 2869:LOCATE 1,1:PRINT SPACES (29 
LIPRINT CHR$(23) ;CHRS(1) :PLOT x, y:RETURN 

2959 :SCREENCOPY,s,1:MODE 1:INK 9,8:PAPER 8:BORDER B:IN 
K 1,24:INK 2,2:PEN 1:RETURN 

2869 MODE m:t=9ÿ:BORDER bb:FOR z=9 TO nc:INK z,cp(s,z):N 
EXT: :SCREENCOPY, 1,5:PAPER B:LOCATE 1,1:PRINT SPACES (col 
Jtcc=c!MOVE x,y:1F c=ÿ THEN cc=1:GRAPHICS PEN cc:RETURN 
:ELSE GRAPHICS PEN cc:RETURN 

2979 CLEAR INPUT 

2889 PEN 2:LOCATE 12,25:PRINT"PRESSEZ UNE TOUCHE':PEN ! 


2999 IF INKEY$C)"" THEN RETURN 

2199 GOTO 2999 

2118 LOCATE 14,{1:INPUT "Coordonnie X "xt 

2129 LOCATE 14,13: INPUT "Coordonnie Ÿ "iyt 

2138 IF xt(ÿ THEN xt=ÿ 

2149 IF xt)639 THEN xt=639 

2158 IF yt(ÿ THEN yt:ÿ 

2169 IF yt)383 THEN yt=383 

2179 GOSUB 2868:x=xt:y=yt:DRAW x,y,c:LOCATE {,1:PRINT 5 
PACES$ (col) :PRINT CHR$(23) :CHR$(1) :PLOT x, y:RETURN 

2189 LOCATE 12,15: INPUT"No d'encre ";i 

2199 IF i<g OR i)26 THEN 2189 

2289 GOSUB 2968 :BORDER i 

2219 PRINT CHR$(23) ;CHR$(1) :PLOT x,y 

2229 RETURN 

2239 ON ERROR GOTO 2269 

2249 DIM a(1212313) 

2258 END 

2269 PRINT DERR:RESUME 

2279 IF ERR=32 THEN IF DERR-146 THEN MODE {:PEN {:LOCAT 
E 13,12:PRINT"IMAGE NON TROUVEE":FOR J=1 TO SBYO:NEXT:R 
ESUME 489 

2288 IF ERR-=28 THEN MODE {:LOCATE {,11:PRINT"Vous n'aur 
iez pas oublier de charger  BANKMAN par hasard ??":PR 
INT:END 

2299 PRINT "Erreur No ";ERR;"@ la ligne ";ERL:END 

2389 IF t=1 THEN ce=c:RETURN 

2319 RETURN 


JUN 


dFK 


>RH 


)LW 
>PN 
UV 
»YN 
)AN 


NF 
PC 
JV 


>LM 
)CN 


>YC 
MB 
)QJ 
>QP 
>0Q 
DUT 
>QV 
D'UN 
)BR 


JV 
DUR 
)TY 
DC 
)EK 
)QD 
> EX 
>YH 
>TQ 
WC 


)RQ 


DA] 
)XB 
)EK 
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Valable pour CPC 464 — 664 — 6128 


CRAZY BALL est un jeu de réflexion en 


on principe est simple : vous 

dirigez une balle et devez à 
l'aide des obstacles naturels, 
parvenir à la sortie sans toucher 
une mine où une bombe. Mais 
lorsque la balle part dans une 
direction, elle ne s'arrêtera pas 
tant qu'elle n'aura pas touché 
d'obstacle. Il faut donc savoir se 
servir de ces obstacles pour arriver 
à ses fins. 


Le jeu comporte 5 tableaux et le 
joueur a la possibilité d'en créer 


CRAZY.BAS 


18 KEY 139, "HODE 2:1NK 8,9: INK 1,26:BORDER B:LIST " 


Donner oo sors 
ss ss sus esse 


29 ‘ 
38 ! : 


68 ? : 


ss ss ss ss ss sinus ss 


78 MODE { 


88 IF PEEK(K9999)Co&2A THEN OPENOUT"d':MEMORY &SE4F:LOA >VA 


D''crazy.cod",&8ES58 : CLOSEOUT 


99 MEMORY &8699-1:POKE L993F,&11:ECR=&9329:SPR-L92BB:DE >WB 
PL=49988 :FIXE=&920C : AFFD=89181 : AFFT=&91D9:TABL:1:VIE=3: 


SCR=9 


basic et en assembleur. 
lui-même gràce à l'éditeur intégré 
dans le menu des options. 
Deux fichiers sont à saisir. 


e "CRAZY BAS" : 
basic principal. 


c'est le fichier 


e “CRAZY DAT" : ce fichier crée le 
fichier binaire "CRAZY LOD". Dès 
que “CRAZY.LOD' est crée, 
*CRAZY DAT" n'est plus nécessaire 
(conservez le tout de même pour 
des vérifications éventuelles). 


95 GOTO 28998 
198 GOTO 658 


119 GOSUB 1729:CALL FIXE:CALL SPR 
128 LOCATE 1,23:PEN 3:PRINT CHR$(238) ;:PEN 1:PRINT STRI 


Les possesseurs de CPC 464 et 664 
à lecteur de cassettes devront 
faire figurer les fichiers dans l'ordre 
suivant : 


eCRAZY.BAS 
e CRAZY.LOD 


Manipulations curseurs ou 
joystick, F pour quitter. Les régles 
du jeu sont incluses. 


_ e 
© Pr 
> 
—., 


= 


)BN 
>FU 


NG$(38,154);:PEN 3:PRINT CHR$(238):PEN 1:LOCATE 1,24:PR 


INT CHRS(149):LOCATE 49,24:PRINT CHR$(149):PEN 3:LOCATE 


de 1,25:PRINT CHR$(238) ; :PEN 1:PRINT STRING$ (38,154) ; : PEN 

)LC 3:PRINT CHR$(238);:PEN ! 

sp | 139 LOCATE 3,24:PEN 2:PRINT'LEVEL"::PEN L:PRINT TABL:LO DTG 

LE | CATE 16,24:PEN 2:PRINT'SCORE"; :PEN L:PRINT USING"#HH#E" 

SLF | :SCR:PEN 2:LOCATE 32, 24:PRINT'LIVES"::PEN :PRINT VIE:L 

pk | OCATE 1,1 
149 INK 9,U:INK 1,A:INK 2,B:INK 3,C:BORDER 8 KT 
158 pannes seen nee ess RG 
169 ? : ; )RH 
179 ' : BOUCLE PRINCIPALE ; RJ 
188 ” : ; DRK 


SN 
= 
© 
as 

LOQ nnne nn e nan TA 
289 IF INKEY(1)=9 OR INKEY(75):9 THEN GOTO 289 )MN 
219 IF INKEY(8)-ÿ OR INKEY(?74)=8 THEN GOTO 378 >MD 
229 IF INKEY(9)=9 OR INKEY(72):9 THEN GOTO 469 DHU 
239 IF INKEY(2)=ÿ OR INKEY(73)=8 THEN GOTO 558 MY 
249 IF PEEK(ADR)=3 THEN 1999: ? TABLEAU SUIVANT DUB 
259 IF PEEK(ADR):5 OR PEEK(ADR):6 THEN 1738 )JX 
251 IF INKEY(53):9 THEN 29969 DWF 
264 LOCATE 22,24:PRINT USING"##H#";SCR >FT 
2179 GOTO 289 )TH 
VAS SEE PRES ENTRE TA 
298 ? : )TB 
398 ” : DEPLACEMENT DROITE RD 
319 ? : RE 
SA IR S PR EE PR R ES EMEA RF 
33$ IF PEEKIADR+1)=2 THEN 299 >NH 
34ÿ L=2 >PC 
359 IF PEEKIADR+#L)=2 OR PEEKIADR+4L-1)=3 OR PEEK(ADR+#L-{ DHH 
)=6 ÔR PEEK(ADR4L-1)=5 THEN L=L-1:G0OT0 369 ELSE L=L+1:G 
OT0 359 
369 POKE &99BD,L:POKE &9ÿ16,9:GOSUB 1729:CALL FIXE:X=X+ JT 
L'ADR=ADR+L:CALL DEPL:SCR=SCR+L:GÜTO 24ÿ 
CO AN DTA 
388  : )TB 
399 ? : DEPLACEMENT GAUCHE )TC 
498  : RE 
AID do nE ie en at a Re ee Pete RF 
428 IF PEEK(ADR-1)=2 THEN 298 WP 
439 L=2 >PC 
44ÿ IF PEEK(ADR-L)=2 OR PEEK(ADR-L+1)=3 OR PEEK(ADR-L+1 >MK 
1=6 DR PEEK(ADR-L+1)=5 THEN L:L-1:G0T0 458 ELSE L=L+1:G 
OTO 449 
459 POKE L9SBD,L:FOKE &9916,1:GOSUB 1729:CALL FIXE:X=X- )JY 
L'ADR=ADR-L:CALL DEPL:SCR=SCR+L:G0OTO 249 
RD agen re nee Re et se en DTA 
47 ! : TB 
489 ” : DEPLACEMENT HAUT )TC 
498 ? : >TD 
TL AREA OR LD Fa 'RF 
519 IF PEEK(ADR-26)=2 THEN 289 WE 
52ÿ L=52 DD 
538 IF PEEK(ADR-L)=2 OR PEEK(ADR-L+26):3 OR PEEKCADR-L+ >XB 
26)=6 OR PEEK(ADR-L+26)=5 THEN L=L-26:G0T0 54ÿ ELSE L=L 
+26:G0T0 538 
548 POKE &9SBD, L/26:POKE 89916,2:GOSUB 1729:CALL FIXE:Y DDB 
=Y-(L/26) :ADR=ADR-L:CALL DEPL:SCR:SCR+(L/6) :GOTO 249 
BD D Rene Re ee are )TA 
568  : TB 
578 ? : DEPLACEHENT BAS )TC 
584 " : >TD 
SD Rene ne eee te TE 
698 IF PEEK(ADR+26)=2 THEN 289 WC 
61ÿ L=52 )WD 
629 IF PEEK(ADR+L)=2 OR PEEK(ADR+L-26)=3 OR PEEKÇ(ADR+L- )DXZ 
26)=6 OR PEEK(ADR+L-26):5 THEN L=L-26:G0T0 639 ELSE L=L 
+26:G0T0 628 
639 POKE &9#8D,L/26:POKE 89916,3:GOSUB 1729:CALL FIXE:Y )CG 
=Y+(L/26) :ADR=ADR+L:CALL DEPL:SCR=SCR+(L/6) :GOTO 248 
649 END )TD 


Fo 

5 
659 MODE 1:INK 89,8:INK 1,8:INK 2,9:INK 3,9:BORDER S:CAL 
L ECR:IF TABL={ AND OUI: THEN RESTORE 729 
651 IF TABL:1 AND OUI=1 THEN X=PEEK(&B7EF) :Y=PEEK (48899 
1:A=26:B=2:C=18:G0T0 715 
669 IF TABL=2 THEN RESTORE 929 
679 1F TABL=3 THEN RESTORE 1129 
689 IF TABL=4 THEN RESTORE 1329 
699 1F TABL=5 THEN RESTORE 1528 
789 IF TABL:6 THEN MODE 2:LOCATE 15,13:PRINT'Felicitati 
ons, vous avez termine tous les niveaux.":LOCATE 21,14: 
PRINT"Votre Score restera dans nos menoires.":high=scr: 
GOSUB 1B84ÿ:FOR 1={ TO 2989:NEXT:GO0TO 1889 
718 FOR 1=48699 TO 48689+467:READ A:POKE I, A:NEXT:READ 
X,Y,4,B,C 
715 ADR-&869B+X-8+(Y-4)#26:CALL AFFT:GOTO 119 
729! ------ TABLEAU No { ------ 
738 DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0, 





ae 
748 DATA 2,4,4,4,4,4,2,4,4,5,4,4,4,0,4,4,4,4,4,2,4,4,4, 
4,4,2 
759 DATA 2,4,4,4,4,4,9,u,4,5,4,4,4,0,2,4,4,4,4,4,4,4,4, 
4,4,2 
769 DATA 2,4,4,4,4,4,0,4,4,5,4,2,4,4,4,4,4,4,4,4,4,4,4, 
4,5,2 
779 DATA 2,4,2,2,4,4,4,4,4,5,4,4,4,0,4,4,4,4,6,4,4,6,4, 
h,4,2 


788 DATA 2,4,2,4,4,4,4,4,4,4,2,2,4,4,4,4,4,4,4,4,4,4,4, ) 


4,4,2 


799 DATA 2,4,2,4,2,2,4,4,4,4,4,4,4,4,4,2,0,4,4,6,6,4,4, : 


2,4,2 

889 DATA 2,4,4,4,2,4,4,4,4,4,4,4,4,4,4,4,4,4,2,4,4,5,4, 
4,4,2 

81ÿ DATA 2,4,4,4,4,4,4,4,4,4,h,4,4,4,4,6,6,4,4,4,4,4,4, 
4,4,2 

828 DATA 2,4,4,4,4,4,4,4,4,4,4,4,2,4,4,4,4,4,4,4,4,4,4, 
4, 4,2 

839 DATA 2,4,4,2,4,4,4,4,4,4,4,4,4,4,à,4,4,4,2,2,4,4,2, 
à, 4,2 

849 DATA 2,4,4,4,4,4,4,4,4,4,4,4,4,4,4,2,2,2,2,4,4,4,2, 
4,4,2 

859 DATA 2,5,5,5,5,5,5,5,5,4,4,4,4,4,4,4,2,4,4,4,2,4,4, 
4,4,2 

868 DATA 2,5,5,5,5,5,5,5,5,4,4,2,4,4,4,4,5,4,5,4,4,4,4, 
4,4,2 

879 DATA 2,5,5,5,5,5,5,5,5,4,4,4,4,4,2,4,4,4,2,4,4,4,4, 
4,4,2 

889 DATA 2,4,4,5,5,5,4,4,4,4,4,4,4,4,2,2,4,5,2,4,4,4,4, 
4,4,2 

899 DATA 2,4,4,4,2,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,6,4,4, 
4,3,2 

988 DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0, 
2,2,2 

918 DATA 9,5,26,3,15 

928 TABLEAU No 2 
939 DATA 2,6,2,6,2,6,2,6,2,6,2,6,2,6,2,6,2,6,2,6,2,6,2, 
6,2,6 

949 DATA 5,4,4,4,2,4,4,2,4,2,4,4,4,4,4,4,4,4,4,4,4,4,4, 
4,4,2 


m 959 DATA 2,4,4,4,4,2,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,2,4, 


>DF 


>GH 


»YB 


>HM 


4,4,5 

968 DATA 5,4,2,2,4,5,6,4,4,4,2,2,2,2,2,2,2,2,2,4,4,4,4, 
4,4,2 

979 DATA 2,4,4,4,4,4,4,4,4,4,2,4,4,4,2,4,4,4,2,4,4,4,4, 
4,4,5 

988 DATA 5,4,4,4,4,4,2,4,2,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 
4,4,2 

998 DATA 2,5,4,4,2,4,2,4,2,4,4,4,2,4,4,4,2,4,6,2,2,2,4, 
ä,4,5 

1899 DATA 5,2,4,4,4,4,2,4,4,2,4,4,2,2,4,2,2,4,4,4,4,2,4 
,4,4,2 

1819 DATA 2,4,4,4,4,2,2,4,4,4,4,4,4,4,4,4,4,4,4,2,9,2,4 
,4,4,5 

1829 DATA 5,4,4,6,4,4,4,4,6,4,4,4,4,4,4,4,4,2,4,2,4,4,4 
,4,4,2 

1839 DATA 2,4,4,4,4,4,4,2,2,4,4,2,2,4,2,2,4,4,4,2,4,4,4 
,4,4,5 


1848 DATA 5,4,4,4,2,4,4,4,2,2,4,2,4,4,4,2,4,4,4,2,2,2,4 


,4,4,2 


1858 DATA 2,4,4,4,4,4,2,4,4,2,4,4,4,4,4,h,4,4,4,4,4,4,4 


144,5 


1864 DATA 5,4,4,4,4,4,5,2,4,4,4,4,4,9,4,4,4,4,u,4,4,ü,4 


,4,4,2 

LA74 DATA 2,4,2,4,4,4,4,0,2,4,4,4,4,2,2,2,4,4,4,4,4,h,4 
,4,2,5 

1889 DATA 5,4,4,4,6,4,4,4,2,2,4,4,2,2,2,4,4,4,4,4,4,ü,4 
,4,4,2 

LAOB DATA 2,4,4,4,4,2,4,4,4,4,4,4,4,4,4,4,2,4,4,4,4 4,4 
,4,3,5 

1199 DATA 5,2,6,2,6,2,6,2,6,2,6,2,6,2,6,2,6,2,6,2,6,2,6 
,2,6,2 

1118 DATA 9,5, 26,2, 18 

1129 ! TABLEAU No 3 
1138 DATA 2,2,2,9,9,2,2,9,9,2,2,6,2,2,9,2,2,0,6,2,9,9,9 
PA 

(149 DATA 2,4,4,4,4,2,4,4,4,4,4,4,4,4,0,4,4,4,4,4,4,4,4 
,4,4,6 


1159 DATA 2,2,4,4,4,4,4,0,4,4,4,4,4,4,4,4,4,4,h,4,4,4,2 


,4,4,6 


1168 DATA 2,4,4,2,4,4,4,4,2,4,2,4,4,4,4,4,4,4,4,4,4,4,à | 


,4,4,6 


1178 DATA 2,4,4,4,4,4,6,4,4,4,4,4,4,4,4,4,4,2,4,4,4,4,4 4 


,4,4,6 
1188 DATA 2,4,4,2,4,4,4,4,4,2,2,4,4,4,4,4,4,4,4,4,4,4,4 
,4,4,6 
1194 DATA 2,4,4,4,4,4,4,2,4,2,4,4,4,4,2,4,4,2,4,4,4,u,4 
,4,4,6 
1299 DATA 2,4,4,2,4,4,4,4,4,4,4,4,4,4,4,8,4,2,4,2,4,0,4 
,4,4,6 
1219 DATA 2,4,4,4,4,4,4,2,4,2,4,4,4,4,4,4,4,6,4,4,4,û,2 
,4,4,2 


1228 DATA 2,4,4,2,4,4,4,4,4,4,4,4,4,4,4,4,4,2,4,4,4 4,4 


,4,4,2 
1239 DATA 2,4,4,4,4,4,4,2,4,4,4,4,4,4,4,4,4,2,4,4,4,4,4 
,4,4,5 


124 DATA 2,4,4,2,4,4,4,4,4,4,4,4,2,2,4,4,4,2,4,4,2,4,4 


14,4,5 


1259 DATA 2,4,4,4,2,4,4,4,4,4,4,4,4,4,4,4,4,2,4,4,4,14,4 Hi 


,4,4,5 





& 
1268 DATA 2,4,4,4,4,2,4,4,2,4,4,4,2,4,4,2,2,2,6,4,4 4,4 


124,5 

1279 DATA 2,4,4,4,4,4,4,4,4,4,4,2,4,2,4,4,4,4,4,4,2,2,4 
14,4,5 

1288 DATA 2,4,4,4,2,4,4,4,4,4,4,4,4,4,4,4,2,2,4,4,4,û,4 
,4,4,5 

1299 DATA 2,4,2,4,4,4,2,4,4,4,2,4,4,2,4,4,84,4,3,4,4,4,4 
,4,4,5 

Fée DATA 2,2,2,2,2,2,2,2,2,2,2,6,5,6,5,6,5,6,5,6,5,2,2 
jan 

1319 DATA 29, 12,26, 1,19 
1329 ? TABLEAU No 4 
1339 DATA 5,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6 
,6,6,2 

1349 DATA 5,4,4,2,2,2,2,4,4,4,4,4,4,4,4,4,4,4,0,4,4,4,4 
,4,4,2 

1358 DATA 5,4,4,2,2,2,4,4,4,4,2,2,4,4,4,4,4,4,4,4,4,4,4 
144,2 

1368 DATA 5,4,4,2,2,4,4,4,4,4,2,2,4,4,4,4,4,4,4,4,4,4,4 
,4,4,2 

1378 DATA 5,4,4,2,4,4,4,6,4,4,4,2,4,4,4,4,4,4,4,4,4,2,4 
,4,4,2 

1388 DATA 5,4,4,4,4,4,4,4,4,4,4,4,4,4,2,2,2,2,2,4,4,4,4 
144,2 

1398 DATA 5,4,4,4,4,4,4,4,4,4,4,4,4,2,4,4,4,4,4,4,4,ü,4 
,4,4,2 

1498 DATA 5,4,4,4,4,4,2,4,4,4,2,2,4,4,4,2,4,4,4,4,4,4,4 
14,4,2 

1419 DATA 5,4,4,4,2,4,4,4,4,4,4,4,2,2,4,4,4,4,4,4,4,4,4 
,4,4,2 

1429 DATA 5,4,4,4,4,4,4,4,2,4,4,4,4,4,4,4,4,4,4,4,4,4,2 
,4,4,2 

1439 DATA 5,4,4,4,4,2,4,4,2,2,4,4,4,4,4,4,4,2,4,2,2,2,4 
,4,4,2 

1449 DATA 5,4,4,4,4,4,4,4,4,4,2,4,4,4,2,4,4,4,4,4,4,2,4 
,4,4,2 

L458 DATA 5,4,4,4,4,4,4,2,4,4,4,4,4,4,4,4,4,4,6,4,3,4,4 
,4,4,2 

1468 DATA 5,4,4,4,4,4,4,4,4,4,4,4,2,4,4,4,2,4,4,4,4,4,4 
22 

1478 DATA 5,4,4,4,4,4,4,4,4,2,4,4,4,4,4,4,4,4,2,4,4,4,4 
14,5,2 


L4BD DATA 5,4,4,4,8,4,4,4,4,4,4,4,4,4,9,4,4,4,4,4,4,à,4 ) 


,4,4,2 
1498 DATA 5,4,4,4,4,4,4,4,4,4,4,2,2,4,4,4,4,4,4,4,4,4,4 
4 2,2 


| 1504 DATA 5,6,6,6,6,6,6,6,6,6,6,6,6,2,2,6,6,6,6,6,6,6,6 ) 


,6,6,2 
1519 DATA 14,8,26,2,18 


1529 * ---- TABLEAU No 5 ------ 
LE9B DATR 2,2220,0000,2,2 230,2 0,2,9, 0,900 2,00 
RUSR 


Los Mol co 

1549 D 2,4,4,4,4,4,4,4,4,4,4,4,2,4,4,4,4,4,4,2,4,4,4 
,4,4, 

155$ DATA 2,4,4,4,2,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 
44,2 

1568 DATA 2,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 
,4,4,2 

1579 DATA 2,4,4,4,4,4,4,4,4,2,4,4,4,4,4,2,4,4,4,4,4,h,4 


BF 
CD 
)CG 
)CE 
)BX 
PU 
X] 
>CL 


)CB 


CA 


)CF 


24,2 

1588 DATA 2,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 )CN 
14,4,2 

1598 DATA 2,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 )CP 
,4,4,2 

1698 DATA 2,4,4,4,2,4,4,4,4,4,4,2,4,4,4,4,a,4,4,4,4,0,4 
14,4,2 

1618 DATA 2,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,2,4,4,4,4,0,4 
144,2 

1628 DATA 2,4,2,4,4,4,4,4,4,4,2,4,4,4,4,4,4,4,4,4,4,4,4 )CD 
14,4,2 

1638 DATA 2,4,4,4,4,2,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 
144,2 

1648 DATA 2,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 : 
,4,4,2 

1658 DATA 2,4,4,4,4,4,4,2,4,4,4,4,4,4,4,2,4,4,3,4,4,4,4 
,2,4,2 

1668 DATA 2,4,4,4,4,4,4,4,4,4,4,4,2,4,4,4,4,4,4,4,4,4,4 
144,2 

1678 DATA 2,4,4,2,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 
,4,4,2 

1688 DATA 2,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 
14,4,2 

1699 DATA 2,2,4,4,4,4,2,4,4,4,2,4,4,4,4,4,4,2,4,4,4,2,4 CE 
14,4,2 


)CB 


)CE 


1799 DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2 DBN 
1052; 2 

1719 DATA 9,5,26,2,18 DNY 
1729 POKE 49955,X:POKE 89956,Y:POKE 49957, ELE:RETURN >)X 
1739 ? HAMARRENEEHEHHERRENNE )YD 
1749 ' # } VE 
1759 " # PERD UNE VIE + DYF 
1769 ' t t »YG 
1778 ? HEMNHHENEENERHENNENN DYH 
1789 ELE=7:GOSUB 1729:CALL AFFD )2Y 
1709 ENT 2,188,-1,1:SOUND 2,189,199,5,,2:VIE=VIE-1:F0R DAA 
1:21 TO 2699:NEXT: INK 1,8:INK 2,8:INK 3,8 

1899 IF VIE=f THEN MODE 2:LOCATE 35,13:PRINT"GAME OVER" DHJ 
:GOSUB 1859:FOR 1:1 TO 2989:NEXT:G0TO 1889 

1819 MODE 2:LOCATE 27,13:1F PEEKCADR)=5 THEN PRINT'Une )XT 
sine, ca chatouille !!!" ELSE IF PEEK(ADR)=6 THEN PRINT 
*Une bosbe, ca fait mal !!!" 

1828 LOCATE 39,14:PRINT"Vous perdez une vie.":GOSUB 184 >YB 
ÿ:FOR i=i TO 2989:NEXT:G0TO 188 

1838 ' <<< Flash de couleur >>») )YE 
1849 RESTORE 1869:FO0R i=1 TO S:READ a:INK {,a:FOR o:1 T DDY 
0 198:NEXT:NEXT:RETURN 

1859 RESTORE 1878:FOR i=1 TO S:READ a:INK 1,a:FOR o=1 T )DA 
0 189:NEXT:NEXT: RETURN 

1869 DATA 9,3,6,15,26 NU 
1879 DATA 9,1,2,11,26 )N] 
1880 ? sobres DYK 
1898 ? : ! >ZA 
1999  : ON RECOMMENCE ? | DYC 
1919  : 4 »YD 
1928  SÉDINTT NOPANRAMNINEN )YE 
1939 MODE 2:INK 1,9:LOCATE 25,13:PRINT" Votre score est >QK 
de"; INT(scr);"points." 

1848 LOCATE 39, 14:PRINT'" Voulez-vous rejouer ?":GOSUB 18 LU 


59 

1959 AS=UPPERS$(INKEYS):IF A$="" THEN 1959 

1969 IF A$="O"THEN 29969 

1978 IF A$="N'THEN END 

1989 GOTO 1959 

1999 * :  TABLEAU SUIVANT  : 

2999 TABL=TABL+1:INK 1,8:MODE 2:LOCATE 31, 13:PRINT'LEVE 
L';TABL-1;"COMPLETED":GOSUB 1849:FOR 1=1 TO 29BB:NEXT:G 


28919 ” : ! 

28928 ' : Presentation : 

28939 ? : : 

28049 ' 

28959 MODE 1:BORDER 9:INK 9,8:INK t,8:LOCATE 12,19:PRIN 

T'Vincent Bouvel le":LOCATE 19,12:PRINT'Et":LOCATE 16,14 
:PRINT"CPC INFO":GOSUB 1859:FOR i={ TO 1SY8:NEXT: INK 1, 

ÿ:CLS:LOCATE 15,13:PRINT"Presentent":G0SUB 1858:F0R [=1 
TO 1599: NEXT: INK 1,8:INK 2,8:CLS 

28951 PDKE &933F,481:POKE 49349, &C3:CALL ECR:INK 1,26: 
NK 2,8:POKE 8933F,&11:POKE 49348, 4CD:FOR 1=1 TO 2998:NE 

XT 

28968 MODE 1:INK #,8:INK {,8:INK 2,8:INK 3,8:CALL ecr:P 

EN 3:LOCATE 19,8:PRINT"{) Regles du jeu" 

28961 PEN 1:LOCATE 19,19:PRINT"2) Jeu":PEN 2:LOCATE 19, 
12:PRINT"3) Editer un tableau":PEN 3:LOCATE 19, 14:PRINT 
“4) Sauver tableau cree":LOCATE 19,16:PEN f:PRINT"5) Ch 

arger tableau cree":LOCATE 18,18:PEN 2:PRINT"6) Efface 
tableau cree" 

29962 PEN 3:LOCATE 19,28:PRINT"7) Modifier tableau":PEN 
{ 

28969 INK 1,26:INK 2,8:INK 3,7:PEN { 

28979 a$=UPPERS(INKEYS):IF a$=""THEN 29879 


oriente nesus 
tisser 


28988 IF INKEY(64):9 OR INKEY(13)=9 THEN 29999 

29981 IF INKEY(65)=ÿ OR INKEY(14)=8 THEN 199 

28982 IF INKEY(57):9 DR INKEY(5)=9 THEN 49990 

28983 IF (INKEY(56)=9 OR INKEY(29)-9) AND OUI:1 THEN 58 
599 

28984 IF INKEY(49)=9 OR INKEY(12):9 THEN 69909 

29985 IF INKEY(48)=ÿ OR INKEY(4)=:9 THEN OUI=9 

28986 IF CINKEY(41)=9 OR INKEY(11)=:8) AND OUI=1 THEN 4 
969 


28987 GOTO 28978 

2999 MODE 1:INK 1,9:1INK 2,9: INK 3,9:ECR=89320:CALL ECR 
:LOCATE 1,4:PRINT"Vous dirigez la petite balle suivante 
":x299:y=4:ele=ÿ:GOSUB 1729:CALL fixe:CALL affd 

28091 a$=INKEY$:1F a$©"" THEN 29991 

25199 PRINT"Enfin presque !!! En effet, aussitot quevou 

s lancez cette balle , seuls lesobstacles naturel 
s pourront arreter saprogression." 

28118 PRINT'Hais ces obstacles ne sont pas si 
s que ca. Jugez-en la liste :" 

28128 ELE=2:X=2:Y=12:GOSUB 1729:CALL FIXE:CALL AFFD:Y=1 
4:ELE=3:GOSUB 1728:CALL FIXE:CALL AFFD:Y=17:ELE=4 : GOSUB 
1728:CALL FIXE:CALL AFFD 

25139 Y=19:ELE=5:GOSUB 1729:CALL FIXE:CALL AFFD:Y=21:EL 

E=6:GOSUB 1729:CALL FIXE:CALL AFFD 

28148 LOCATE 4,12:PRINT"Un mur. [1 vous aidera a stoppe 

m r."!LOCATE 4,14:PRINT"L'arrivee, C'est la qu’il faut al 


natu-rel 





20 


JHE 
>QL 
>PH 
>PA 
)7B 
)VG 


CH 
»CJ 
)CK 
DA 
DB 
>VR 


)CC 


VV 


YP 


Le 


A 


JE 


AN 
© — 
> a 
e.. 


ler":LOCATE 4,15:PRINT"pour passer au niveau suivant." 
28158 LOCATE 4,17:PRINT"C'est le sol. Il ne vous manger 
a pas.":LOCATE 4, 19:PRINT"Une mine. Ca fait boun !!!":L 
OCATE 4,21:PRINT"Une bombe. Menes effets que la mine." 


29169 LOCATE 8,24:PRINT"Appuyez sur une touche.":INK 9, > 


B:BORCER B:1HK 1,26:1INK 2,8:INK 3,15:CALL &BB18:CLS : INK 
L,8:INE Z, 8: INK 3,d'ecr=49324:CALL ECR 

28178 LOCATE 1,19:PRINT'Le but du jeu est donc d'arrive 

r jusqu'@la case d'arrivee sans toucher de bonbeset de 

mines." 

28188 PRINT"Vous disposer pour cela de 3 Vies et detou 

t votre intelligence.":PRINT'Utilisez les fleches du c 
lavier ou lamanette." 

28181 PRINT'"Appuyer sur F pour arreter la partie" 

28199 LOCATE 8,24:PRINT"Appuyez sur une touche.":INK 6, 

ÿ:BORDER 9:INK 1,26:INK 2,8:INK 3, 15:CALL &BB18:CLS:GOT 

0 24968 

19908 ' Editeur de tableaux ::::: 

49919 A=9:B=9:MODE 1:INK 9,8: INK 1,9:INK 2,9: INK 3,8:B0 

RDER Y:CALL ecr:1F oui=1 THEN 49939 

49928 oui=1:FOR i=&8698 TO &B7D4:POKE i,4:NEXT:FOR i=46 

699 TO L664ÿ+25:POKE i,2:NEXT:FOR i:&87BA TO &87BA+25:P 

OKE i,2:NEXT:FOR i=&8689+25 TO &87D4 STEP 26:POKE i,2:P 

OKE 1+1,2:NEXT 


48939 CALL &91D9:X=9:Y=4:LOCATE X,3:PRINT CHR$(241) :LOC ) 


ATE X,22:PRINT CHR$(248) :LOCATE 7,Y:PRINT CHR$ (243) :LOC 
ATE 34,Y:PRINT CHR$(242) 

49949 LOCATE 2, 7:PRINT"{:":LOCATE 2, 18:PRINT"2:":LOCATE 
2, 13:PRINT"3:":LOCATE 2, 16:PRINT"4:":LOCATE 2, 19:PRINT 
"5:":LOCATE 37,5:PRINT"F":LOCATE 37, 7:PRINT"=":LOCATE 3 

6,9:PRINT'FIN" 

48941 LOCATE 37, 15:PRINT"'C":LOCATE 37,17:PRINT"=":LOCAT 

E 35,19:PRINT'CLEAR":LOCATE 11,25:PRINT"D = depart de ] 

a balle":LOCATE 13,23:PRINT'Depart Fixe : NON" 

49959 ELE=2:X=5:FOR Y=7 TO 19 STEP 3:GOSUB 1729:CALL F] 

XE:CALL 89181:ELE=ELE+1:NEXT 

49969 X=9:Y=4:INK 1,26: INK 2,2: INK 3,18:A$=INKEYS:IF A$ 

CO" THEN 49869 

48978 IF CINKEY(11=8 OR INKEY(75):ÿ) AND X{33 THEN LOCA 

TE X,3:PRINT" ":LOCATE X,22:PRINT" ":X=X+1:LOCATE X,3:P 

RINT CHR$(241):LOCATE X,22:PRINT CHR$(249):G0T0 49118 


49989 IF (INKEY(8)=9 OR INKEY(74)=8) AND X>8 THEN LOCAT > 


E X,3:PRINT" ":LOCATE X,22:PRINT" ":X=X-1:LOCATE X,3:PR 
INT CHR$(241):LOCATE X,2Z:PRINT CHR$(248):GOTO 49118 
49999 IF CINKEY(9)=9 OR INKEY(72)=:9) AND Y>4 THEN LOCAT 
E 7,Y:PRINT" "iLOCATE 34,Y:PRINT" "iY=Y-{:LOCATE 7,Y:PR 
INT CHR$(243) :LOCATE 34,Y:PRINT CHR$(242) :GOTO 49119 
49199 IF (INKEY(Z)=ÿ OR INKEY(73):#) AND Y<21 THEN LOCA 
TE 7,Y:PRINT" TiLOCATE 34,Y:PRINT" ":Y=Y+#{:LOCATE 7,Y:P 
RINT CHR$(243):LOCATE 34,Y:PRINT CHR$(242):G0TO 49119 
49119 IF INKEY(641:9 OR INKEY(13):9 THEN ADR=&8694+1X-8 
)+(Y-4)#26:POKE ADR, 2:ELE=2:GOSUB 1728:CALL FIXE:CALL & 
9181:G0T0 4987 

49129 IF INKEY(65)=9 OR INKEY(14)=9 THEN ADR-&8699+(X-8 
)+(Y-4)#26:POKE ADR, 3:ELE=3:GOSUB 1728:CALL FIXE:CALL & 
91B1:G0T0 49879 

48138 IF CINKEY(57)=8 OR INKEY(5)=9) AND Y>4 AND YD21 
AND K8 AND X(33 THEN ADR=88699+(X-8)+(Y-4)x26:PÜUKE 
ADR, 4:ELE=4:GOSUB 1728:CALL FIXE:CALL &91B1:GOT0 49978 


ra 
> 





L] 
49149 IF INKEY(56)=9 OR INKEY(29):9 THEN ADR=L8689+(X-8 >FG 


1+(Y-4)26:POKE ADR,5:ELE=5:GO0SUB 1729:CALL FIXE:CALL & 
9181:G0T0 49978 
49159 IF (INKEY(49)=9 OR INKEY(12)=8) THEN ADR=&8699+(X DJH 
-8)+(Y-4)x26:POKE ADR,6:ELE=6:G0SUB 172#:CALL FIXE:CALL 
&9181:G0T0 49978 
49169 IF INKEY(61)=9 AND XO8 AND XO33 AND Y<> 21 AND )CJ 
YO4 THEN A=X:B=Y:LOCATE 28, 23:PRINT"OUI" 
49179 IF INKEY(53)=9 THEN 49218 >XH 
49189 IF INKEY(62)=9 THEN FOR i=&8699 TO &87D4:POKE i,4 EC 
:NEXT:FOR i=48699 TO &B699+25:POKE i,2:NEXT:FOR i=&87BA 
TO &67BA+25:POKE i,2:NEXT:FOR i=k8699+25 TO kB7D4 STEP 
26:POKE i,2:POKE 1+1,2:NEXT:CALL &91D9:A=8:R=8:LOCATE 
28,23:PRINT'NON":GOTO 49879 
49290 GOTO 48978 AK 
49219 A$=INKEYS:IF A$C"" THEN 49219 BK 
29228 IF A=9 AND B=ÿ THEN LOCATE 5,24:PRINT"Position de DHX 
depart de la balle ?":CALL &BB18:LOCATE 5,24:PRINT STR 
ING$(33," "):G0T0 49979 
49239 FOR i=&8699 TO &B7EE:1F PEEK(1)=3 THEN 49249 ELSE DJT 
NEXT:LOCATE 5,24:PRINT'Position d'arrivee de la balle 
9: CALL &BB18:LOCATE 5,24:PRINT STRING$(33," *):GOTO 49 
979 


48249 POKE &87EF,a:POKE b6899,b:GOTO 28968 >JH 
5000 * nomresensceseemeenneren >DA 
58919 ! : : } )DB 
59928 ' : SAUVER TABLEAU CREE DC 
58939  : ; >DD 
59049 ? APPSECPPPRPNNARARR. DE 


59958 
1,5:INPUT"Non du fichier (Sans extension) 
talogue) ";A$ 


MODE 1:INK 1,26:INK 2,2:INK 3,18:CALL ECR:LOCATE DVD 
(C=Ca 


58968 IF UPPERS(AS)="C" THEN CAT: INPUT A$:GOTO 59869 VF 
59979 1F INSTR(AS,".")C> 8 THEN 59859 )BT 
59089 A$=A$+" TAB":OUI=1:SAVE"!"+A$,B, k8609,&291:G0TD 2 )CK 
9969 

60008 ‘ sésame )DB 
69919 ? : L >DC 
68929 ' : CHARGER TABLEAU CREE : )DD 
69939 ' : | DE 
60048 ! SRE )DF 


69959 MODE 1:INK 1,26:INK 2,2:INK 3,18:CALL ECR:LOCATE VE 
1,5:INPUT"Non du fichier (Sans extension) (C=Ca 
talogue) ";A$ 


68968 IF UPPER$(A$)="C" THEN CAT: INPUT A$:GO0TO 69869  DVH 
68978 IF INSTR(A$,".")C> 8 THEN 68059 BV 
68988 A$=A$+",TAB":OUI=1:LOAD"!"+4$,88699:GOTO 28969 VU 


CRAZY.DAT 


5 ? CREATEUR DE CRAZY.COD 

14 MEMORY &BE4F:L= 198 

29 FOR I=&8E59 TO 49638 STEP 8 

38 S=9:FOR J=1 TO 1+7:READ A$ 

4 C=VAL("&M"+A$):POKE J,C:S=S+C:NEXT 


m 59 READ S$:1F SOVAL("&"+S$) THEN PRINT "Erreur DATAS ligne";L: 


21 


STOP 

64 L=L+t 18:NEXT 

79 SAVE"CRAZY.COD",B,&8E59,&7E9, &BE58 
189 DATA 39,C8,79,2C,B4,3C,C3,D2, 411 
119 DATA C3,D2,B4,3C,78,2C,38,C8,411 
129 DATA 38,C9,43,E0,C3,D2,B4,3C,498 | 
139 DATA B4,3C,C3,D2,43,E8,39,C8, 498 
14ÿ DATA FE,EE,EE, EE, 89,09, BB, RB,52E 





? 


154 DATA BB,BB,98,99,FE,EE,EE,EE,52E | 


169 DATA A5,A5,78, F0, C9,21,56, BD, 498 
178 DATA C9, 21,58, B9,FD,Et,5A, SA, 46E 
180 DATA 92,84, 92, 84,9F,8F, 02, 04, 038 


199 DATA 82,44,0F,9F,02,94,02,04,939 
289 DATA 98,90,54,A2,21,48,53, AC, 25E 
219 DATA 53, AC, 21, 46,54, À2, 608,08, 25E 
229 DATA 40,u4,11,62,44,8ÿ, 19,22, 1AD 


239 DATA 93,08,97,9C,47,0C,93,98,93C 


248 DATA C9,09,62, BA, 73,EE, 33,FF, 4FF 
259 DATA 33,ÉE, 77,FF,62,62,89, 28, 3FB 
269 DATA 99,BB,92,41,46,46,53,59, 2BD 
279 DATA 52,88,99,C7,92,41,46, 46,278 
289 DATA 53,58,52,32,89,CB,92, 43, 2C7 
298 DATA 4F,4D,99,00,09,98,09,E1,17D 
389 DATA 92,42,4F,55,56, 99, 99,99, 1CE 
319 DATA 98,E9,92,41,46,46,53,58,2EB 


6 — 
D. à 


€ 
338 DATA 77,66,55,44,33,22,11,49, 1DC 


349 DATA EE,EE,CC, CC, AA, AA, 88, BB, 5D8 
358 DATA 66,66,44, 44, 22, 22,09, 98, 198 
369 DATA DD, CC, DD, CC, 99, 88, 99, B8, 594 
378 DATA 55,44,55,44,11,09,11,98, 154 
389 DATA CC,CC, CC, CC, 86, 88, 86, 88,554 
398 DATA 44,44, 44, 44,09, 00, 00,08, 119 
499 DATA BB, A4,99, 88, BB, AA, 99, 88, 54C 


419 DATA 33,22,11,99,33,22,11,99,8CC | 


428 DATA AA, AA, 88, 88, AA, AA, 88, BB, 4CB 
439 DATA 22, 22,96, 09, 22, 22,09, 080,888 
449 DATA 99,88, 99, 88, 99, 88, 99, BB, 484 
458 DATA 11,90,11,08,11,08, 11,08, Bad 
469 DATA 86,88, 86, 88, 86, 86, 88, 88, 448 
478 DATA 09,00,00,00,09,08,00,08, 900 
489 DATA 77,66,55, 44, 33, 22, 11,99, 1DC 
498 DATA 77,66,55, 44,33, 22, 11,98, LDC 
599 DATA 66,66, 44, 44, 22, 22, 89, 09, 198 
518 DATA 66,66,44, 44, 22, 22, 09,98, 198 
529 DATA 55,44,55, 44, 11,49, 11,09, 154 
538 DATA 55,44,55,44,11,90,11,98, 154 
54ÿ DATA 44,44,44, 44,89, 89, 09,00, 118 
559 DATA 44, 44,44,44,09,00, 09,08, 119 
569 DATA 33, 22,11, 99, 33,22, 11,09, CC 
579 DATA 33, 22,11,08, 33,22, 11,08, CC 
589 DATA 22, 22,9, 89, 22, 22, 09, 09, 088 





689 DATA 11,89,11,90,11,99,11,09,044 
619 DATA 11,00,11,90,11,09,11,99, 844 
629 DATA 09,89, 09, 09,00, 09,00, 09, 008 
639 DATA 99,00,09,00,08,00,00,09, 509 
649 DATA 24,38, 89, 22,52,99,21,FB, 282 
659 DATA C9, 22,36, 49,3E, 44,97, 32, LAà 
669 DATA 54,99, CD, 9C, 92, 3E, 43, A7, 3C7 
679 DATA CA, 5A,98,FE, 01, CA, 86,98, 493 
686 DATA FE, #2, CA, A3,99,FE, 03, CA, 4CB 
699 DATA CB, 98, C9,06,F5, ED, 78, 1F, 4A3 
799 DATA 38,FB,3E, PA, 3D, 32, 33, 99, 2A5 
719 DATA 29,F1,3E,9F, 32, 33,90, CD, 329 
729 DATA 63,99, 34, 54,99, 3D, 32, 54, 2D4 
739 DATA 98, 29,8, 2A,52,98, 22, 38, 2F6 
749 DATA 99,09, 89, 90,99,91,91,01, CC 
759 DATA 99, 09, 21,63,99, 22,49, 98, 266 
769 DATA C3, 28,99, ED,5B, 56,99, CD, 47B 
778 DATA F3,99, 24, 58,99, 23, 22,58, 332 
789 DATA 98, CD, 34,91,81,59,8E, 3E, 345 
798 DATA FF,EE,FF, 32, 78,98, 28,03, 451 
899 DATA 81,60,8E,C3, C7, 92, 21,6F, BB 
819 DATA 99, 22, 49,99, C3, 28,98, ED, 3ED 
829 DATA 5B,58,90, CD, F3, 99, 24,58, 415 
839 DATA 99, 2B, 22, 58,98, CD, 34,91, 35D 
849 DATA C3, 74,00, 21, AC, 99, 22, 49, 386 
859 DATA 99, C3, 28,98,ED,58,58,98, 43E 


329 DATA FF,EE,DD,CC,BB,AA,00,88,61C m 2 DATA 22,22,99,00,22,22,00,00,988 w 869 DATA CD,F3,99,24,58,99,CD, ZE, 4AD 





e 664 couleur 
° 664 mono 
e 464 couleur 
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e 464 mono 
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ATTENTION ! 


valable dans la limite 


des stocks disponibles 


Utilisez le bon de commande SORACOM 
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879 DATA 92, CD, 7E, 92, CD, 7E, 92, CD, 519 

88ÿ DATA 7E,92, 22, 58,99, CD, 34,91, 3B2 

899 DATA C3, 74,98, 21,D4, 98, 22, 49, 3AE 

949 DATA 99,C3,28, 90, ED, 5B, 58, 99, 43E 

919 DATA CD,F3,98, 24,58, 98, CD, 79, 49F 

929 DATA 92, CD, 79,92, CD, 79, 92, CD, 4FD 

939 DATA 79,92,22,58,98, CD, 3A, 91, 34 

94ÿ DATA C3, 74,98, 21,E9, BE, ED, A9, 4E3 

959 DATA ED, A9, 1B, 1B,CD, 8E, 92, ED, 49D 

969 DATA A9, ED, A9, 1B, 1B, CD, BE, 92, 458 

979 DATA ED, A9,ED, A9, 1B, 1B, CD, 8E, 4AB 

989 DATA 92, ED, A9, ED, A, 1B, 1B, CD, 4AF 

999 DATA 8E, 92, ED, A, ED, A9, 1B, 1B, 479 

1899 DATA CD, BE, 92, ED, A9, ED, AB, 1B, 522 
1919 DATA 1B,CD,8E, 92, ED, A9, ED, A9, 522 
1829 DATA 1B, 1B, CD, BE, 92, ED, AB, ED, 49D 
1939 DATA AB, C9, 11,E8, 8€, ED, A9, ED, 562 
1849 DATA A9, 28, 2B, CD, 79,92, ED, AB, 452 
1959 DATA ED, A9, 28, 2B, CD, 79, 92, ED, 49F 
LAB DATA A9, ED, A9, 28, 2B, CD, 78,92, 452 
1979 DATA ED, A9, ED, A9, 28, 2B, CD, 79, 4AD 
1889 DATA 92, ED, A, ED, A9, 2B, 28, CD, 4CF 
1999 DATA 79,92, ED, A4, ED, A9, 2B, 2B, 472 
1199 DATA CD, 79,92, ED, AG, ED, AB, 28,514 
1119 DATA 28, CD, 79,92, ED, A, ED, A9, 514 
1129 DATA C9, CD, 9C, 92, ER, 21,58,8E, 4AE 
1139 DATA 34,57,98, A7,26,07,01,19, 208 
L149 DATA 99,09, 3D, 29, FC, ED, AB, ED, 3DC 
1159 DATA AP, 1B, LB, CD, 8E, 92, ED, A9, 459 
1169 DATA ED, A9, 1B, {B, CD, 6E, 92, ED, 49D 
1179 DATA A, ED, A8, tB, 18, CD, 8E,92, 454 
1189 DATA ED, AG, ED, A9, 1B, tB,CD, BE, 4AE 
1199 DATA 92, ED, AG, ED, A8, 1B, 1B,CD, dAF 
1299 DATA BE, 92, ED, A9, ED, AB, {B, 1B, 479 
1219 DATA CD, 8E,92, ED, AD, ED, A9, 1B, 522 
1229 DATA 1B,CD,8E, 92, ED, A9, ED, Af, 522 
1239 DATA C9, 11,FE, CO, ED, 53, 18,93, 483 
1249 DATA 21,09, 66, ED, 53, 14,93, 7E, 38C 
1259 DATA 23,22,16,93, 21,58, BE, A7, 294 
1269 DATA 28,07,91, 19,00, 09, 3D, 29, GAG 
1279 DATA FC, ED, A8, ED, A9, 1B, 1B,CD, 519 
128 DATA 8E, 92, ED, A9, ED, A9, 1B, 1B, 479 
1299 DATA CD, 8E, 92, ED, A9, ED, AG, 1B, 522 
1369 DATA 1B, CD, 8E, 92, ED, A, ED, A, 522 
1319 DATA 1B, 1B,CD, 8E, 92, ED, A9, ED, 49D 
1329 DATA A9, 1B, 1B, CD, 8E, 92,ED, A, 459 
1339 DATA ED, A6, 1B, 1B, CD, 8E, 92, ED, 49D 
1349 DATA A9, ED, 49, 1B, 1B, CD, E, 92,458 
1359 DATA ED, A8, ED, A9, ED, 58, 14,93, 599 
1369 DATA 13,13, 24, 16,93,3E, LA, 3D, 18E 
1379 DATA 32,46,92,C2,E3,91,3E, 14, 308 
1389 DATA 32, 46,92, ED,5B, 18,93,91,2FE 
1398 DATA 59,98,EB, 99, EB, ED, 53, 18, 387 
LAB DATA 93,3E, 12, 3, 32, 62,92, C2, 3B 
1419 DATA E3,91,3E, 12, 32,62, 92, C9, 383 
1428 DATA 7C,C6,98,67,D9, 7D,C6,58,414 
1439 DATA 6F,7C,CE, CA, 67, C9, 7C, D6, 4FB 
144 DATA 08,67,E6,49, CH, 7D, C6, BB, 448 
1459 DATA 6F, 7C, CE, 3F,67, C9, 7A, C6, 468 











s # 
ee 


1469 DATA 8,57, D9, 7B,C6,58,5F, 7A, 309 
1478 DATA CE, C9,57,C9, 21,90, CD, 34, 309 
1489 DATA 55,99, 3D, 97, 4F, 96,09, 99, 187 
1499 DATA 34,56,98,FE, 01, 28, 48, 3D, 28C 
1599 DATA 91,59, 99, 09, 3D, 29, FC, 22, {D5 
1519 DATA 58,99,C9, 24, 58,98, CD, 34, 3CA 
1529 DATA 91,91,59,8E, C3, C7,92, ED, 479 
1534 DATA 5B,56,96, ED, 53, La, 93, 26, 358 
1549 DATA BF, 0A,6F, 1A, A6, B5, 12,43, 292 
1559 DATA 13,0A,6F, 14, A6,B5, 12,93, 216 
1569 DATA 13,3E, 98, 3D, 32, E2, 92, 28, 25C 
1579 DATA 96,3E, 6, 32, E2, 02, CO, ED, 3A8 
1589 DATA 5B, 14,93, 7A, C6, 06,57, E6, 387 
1599 DATA 38,C2,CB, 92, 7A,D6, 49,57, 43E 
1609 DATA 7B,C6,50,5F, 39, C5, 14, 7A, 373 
1619 DATA E6,97,29,BF, 7A,D6, 88,57, 37B 
1629 DATA C3, CB, 92, CO, 09, 99,09, 08, 2E9 
1639 DATA 99,08,00,00, 00,00, 09,09, 908 
1649 DATA ED, 5B, 3F,93, 2A, 41,93, 34, 352 
1659 DATA 44,93, 47,C5,D5, 34, 43,03, 3C8 
1669 DATA 4F, 06,99, ED, B9, D1,EB, CD, 47B 
1679 DATA 26,BC,EB, C1, 19, ED, CO, 49, 454 
1689 DATA C9, 59,93, 2E, 19,00,00,08,1E1 
1699 DATA 99,09,00,00,00,00,09,00, 608 
1799 DATA 12,20, 48, 09,9F,D2,0C, 08, 174 
1719 DATA 12,20, C9,08,8F,D2, 9F,69, 1EF 
1728 DATA 2D, 09, 2D, 09,09, 00,08,09,05A 
1739 DATA 2D,D2,8C, 49,93, D2, 0C, 09, {EC 
1749 DATA 0F,09,09,09,5A, 00,08, 08,069 
1759 DATA 99,09,00,09, 00, 2D, 25, 1E,078 
1768 DATA 20,09, 78,D2,68,98, 16, 2D, 221 
1779 DATA 0E, 69,78, D2, 78,40, D2, 99, 2A2 
1789 DATA D2, 09,99,00, 00,08, D2, 2D, 1D1 
1798 DATA C2,69,79,D2,68, 09, 78,09, 2E4 
1899 DATA 99,09, 2D, 09, 08,08, 08, 08,920 
1819 DATA 69,09,09, 1E,C3,99,C3,09,tA4 
1829 DATA 0F,00,0F,00,F0,00,F6,08,1FE 
1839 DATA 95,09,0F, 09, 3C, 09, 3C, 49, 087 
1849 DATA 09,09,00,00, 3C, 09, 3C, 00,078 
1859 DATA 9F,09,0F,09,9F,09, 00,00, 02D 
1869 DATA C3, 09,99, 09,00,00,99,08,0C3 
1878 DATA 99,C3,1E,09, 1E,09,E1,99, tES 
1889 DATA Et,09,0F,00,0F, 00,06, 19, 18F 
1899 DATA Et,99,C3,08,C3, 00, 00,99, 267 
1999 DATA 09,09,C3,09,C3,02,E1, 00,267 
1919 DATA Et,09,E1,00, 00,00, 1E,00, 1ES 
1929 DATA 09,09,00,00,00, 00,08, 2D,92D 
1939 DATA 1E,69,99,00,E1,00,E1,99, {ES 
1949 DATA 8F,09,0F, 00,09, 12,E0,08,110 
1959 DATA C3,09,C3, 99, 80,00, 09,09, 186 
1964 DATA C3,09,C3,69,E1,00,EL, 98,348 
1979 DATA Et,09,00,09, 1E,09, 09,09, 0FF 
1989 DATA 89,09,09, 00,08, 2D,C3,08,0F0 
1999 DATA 99,99,2D,09,2D,98,F9,99, 14A 
2808 DATA F9,09,00,07,0C, 02, 3C, 6D, 13F 
2919 DATA 3C,09,09,09,00,00, 3C, 89, 078 
2820 DATA 3C, 99, 20, 09, 2D, 08, 2D, 08,903 
2939 DATA 99,09,C3,09,99,00, 80,09, 0C3 





' 2859 DATA A5,F9,A4,99,1E,2D, 1E,99, 2A2 


2468 DATA 09,F9,84, 00,52, 2D, C2, 08, 2B1 
2479 DATA 69,08,00,09,D2, 2D, CH, 89, 1BF 
2888 DATA 45,F0,45,00, A5, 00,08, 08, 2DF 
2999 DATA 2D,08,00,09,00,00,09,99,02D 
2198 DATA 09, 1E,06,99,90,0D,2D,C3, LA4 
2119 DATA 90,99, D2, 20, D2,98,91,C3, 2A1 
2128 DATA 09,89, 21,D2,0C, 00,08, 08,0FF 
2139 DATA 99,99, 20, D2, 8C, 09, 2D, C3, tFB 
2148 DATA 2D, 99, 20,09, 09, 08,96, 08, 9FD 
2159 DATA 99,09,00,09, 69,09, 09, 2D, 02D 
2168 DATA 54, 09,09,00,0F,52,0C, 00, 0C7 
2178 DATA D2,89,D2,96,43,C2, 8,09, 269 
2188 DATA 91,02,08,99, 00, 08,08, 00, 0DB 
2199 DATA 20,99, 2,98, 8F,09,8F, 09,978 
2908 DATA 0F,09, 00,00, SA, 08,08, 08,069 
2219 DATA 99,99,00,09, 80, 2D, 2,89, 05h 
2229 DATA 09,99, 78, 12,68, 08, 1E, 00,119 
2238 DATA 1E,99,79,C9, 69,08, 60, 2, 178 
2248 DATA 09, 09,09, 00,08, 09, D2, 08, DD2 
2259 DATA D2,69,78,08, 78,98, 78,09, 23A 
2269 DATA 99,09, 2D,09,09,08,00, 08,020 
2278 DATA 99,00,09, 1E,C3,09,C3,09, A4 
2288 DATA 0F,19,0F,99,F0,00,F8, 00, 2BE 
2299 DATA 9F,88, 09,99, 09,3C, 40,09, 053 
2309 DATA 99,09, 00,00,3C, 08, 3C, 08, 078 
2319 DATA 9F,00,0F,00,0F,00, 00,00, D2D 
2329 DATA C3, 09, 09,00,00, 00,00, 00,0C3 
2338 DATA 09,99, 1E,00,1E,09,E1,09,11D 
2348 DATA E,90,0F,09,0F,00,E1,00, LED 
2359 DATA 09,00,00,C3, 00,09, 06,00, 0C3 
2369 DATA 99,00,C3,09,C3,98,E1,90,267 
2378 DATA Et,99,E1,00, 09,00, 1E,09, ES 
2388 DATA 09,09, 09,00,00,00,00,0D, 080 
2399 DATA 16,2D,9E,09,E1,09,E1,09, 213 
2409 DATA 9F,09,0F,09,Et,D2,Et, 99,282 
2419 DATA 99,C3,09,09, 00,00, 69,09, 0C3 
2428 DATA C3,C3, C2,00,Et,00,E1, 00,484 
2438 DATA Et,D2,E1,00, 1E, 2D, 1E, 09, 2FD 
2449 DATA 89,09, 09, 00,90,C3,93,C3, 189 
2459 DATA C9,08,2D, 88, 2D, 09, FO, 90, 2UA 
2469 DATA F9, 09, 2D,0F, 2), 09,08, 3C, 195 
2478 DATA 99,09,00,08, 09,09, 3C, 3C, D7B 
2484 DATA AC, 99, 20,98, 2D, 09, 2D, OF, DA2 
2498 DATA 2D,69,C3,C3,C3,98, 80,09, 276 
2508 DATA 99,09, 00, 3C, 00, 00,08, 08,030 
2519 DATA 99,00,09,00,00,00,00,09, 008 
2529 DATA 99, 09,00, 00,00, 00, 08,08, 000 
2539 DATA 99,00,00,00,00,00, 00,00, 000 
2544 DATA 09,09,00,00,00, 00,08, 00,080 
2559 DATA 09,69,09,00, 00,00, 00,00, 028 
2568 DATA 09,09,00,00,00,00,00,08,089 
2579 DATA 99,08,00,06, 00,00, 00,09, 008 
2589 DATA 09,99,00,00,00,00,00,00,009 
2509 DATA 99,09,09,00,00,00, 00,00, 000 
2648 DATA 09,09, 09,00, 00,00,00,08,009 
2619 DATA 99,09,00,09,89,00,09,00,000 
2629 DATA 99,09,09,09,00,00,08,08,000 


2849 DATA 99,09,99,C3,2D,98,98,90,9F0 % 2649 END 
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REDEFINITION DE LA 
PILE BASIC DU CPC 


La pile BASIC du CPC a pu se 
trouver trop petite pour certains 
de vos usages. Deux RSX propo- 
sées ici vous permettent de la 
placer (à peu près) n'importe où, 
en lui allouant n'importe quelle 
taille (dans certaines limites), et de 
contrôler son remplissage. Le der- 
nier chapitre de cet article est 
consacré à la méthode d'écriture 
de programme en langage mar- 
chine exécutable où qu'il soit 
chargé, sans relogement. Cette 
méthode, mise à profit pour le 
programme des RSXs proposées 
ici, n’est quasiment jamais em- 
ployée, malgré son très grand in- 
térêt; c'est pourquoi j'ai jugé bon 
d'en faire Une présentation pres- 
que exhaustive. 


LA PILE BASIC 

1) Pourquoi une pile BASIC? 

dès que le BASIC utilise une ins- 
truction rompant l'exécution en 
séquence d'un programme sans 
saut explicite (c'est-à-dire autre- 
ment qu'avec un GOTO) et qu'il 
faut revenir ultérieurement à l’en- 
droit de cette rupture de séquen- 
ce, il faut stocker quelque part 
l'endroit du saut (logique non?). 
La pile BASIC sert à cela. C'est 
très simplifié mais on va bien vite 
détailler. 


2) Quelles instructions utilisent la 
pile BASIC? 

Elles sont au nombre de 3: 

e GOSUB/RETURN: c'est celle pour 
laquelle la notion d’empilage/ 
dépilage est la plus évidente. Le 
GOSUB provoque un saut mais 
l'adresse de l'instruction le suivant 
est préservée (en simplifiant) sur 
la pile BASIC. Avec RETURN cette 
adresse est récupérée et l’exécur- 


Yannick GOUR 


Valable pour CPC 464 — 664 — 6128 


tion continue à partir d'elle. Un 
GOSUB consomme 6 octets. 


e WHILE/WEND: tant que la con- 
dition du WHILE est vraie, les ins- 
tructions entre le WHILE et le 
WEND sont exécutées. Le BASIC 
doit savoir où aller quand il ren- 
contre le WEND, d'où la nécessité 
d'embpiler l'adresse du WHILE. De 
même, si la condition du WHILE 
n'est plus vraie, il Y a saut à l'ins- 
truction suivant le WEND. Il faut 
donc aussi que le BASIC connais- 
se l'adresse du WEND. Ainsi les 
adresses des 2 instructions sont- 
elles stockées en pile BASIC. Elles 
consomment (en un seul bloc) 7 
octets. 


e FOR/NEXT(/STEP): le principe est 
le même que pour WHILE/WEND, 
sauf que l'arrêt de la boucle est 
lié à l'égalité ou à la supériorité 
de la Variable de comptage avec 
une valeur limite. Il y a donc éga- 
lement stockage des adresses des 
FOR et NEXT, avec en plus celle 
de la variable de comptage, et 
aussi des valeurs limite et de pas. 
Selon que sont utilisées des varia- 
bles entières ou réelles, ce sont 16 
ou 22 octets qui sont consommés. 


2) Comment est utilisée la pile 
BASIC? 
La pile BASIC est une pile ascen- 
dante. Pour y accéder le BASIC 
utilise évidemment un pointeur. 
Avant de stocker les octets cor- 
respondants à une des 3 instruc- 
tions précitées, il Vérifie qu'il y a 
encore assez de place: sinon il 
arrête tout avec un beau MEMO- 
RY FULL. Si oui il empile ce qu'il 
faut. 

En sus des informations évoquées 
dans le sous-chapitre précédent, 
le BASIC termine le bloc de don- 
nées empilées par la longueur de 
ce bloc, l'octet servant à cela y 
compris. Le pointeur pointe tou- 
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jours après ce dernier octet. Ce- 
lui-ci indique donc automatique- 
ment au BASIC en cas de dépila- 
ge (RETURN ou fin de boucle WHI- 
LE/WEND ou FOR/NEXT), la lon- 
gueur du bloc disponible et de 
quel type de bloc il s'agit. Il peut 
ainsi détecter si l'instruction de 
“retour” ne correspond pas au 
bloc, ce qui se traduit par un 
message du genre «Unexpec- 
ted..». 

Le BASIC contrôle l'atteinte de la 
limite supérieure de la pile par 
comparaison de la valeur du 
pointeur avec la limite haute de 
la pile, qui est fixée UNE FOIS POUR 
TOUTES en ROM BASIC. Il n'est 
donc absolument pas question (à 
moins de modifier la ROM BASIC) 
que le BASIC empile au delà de 
cette limite. 


Par contre en ce qui concerne la 
limite basse, mise en jeu elle par 
les dépilages, la méthode est 
autre; heureusement, sans quoi 
ces articles et programmes 
n'auraient pas été. Deux para- 
graphes plus haut, il a été dit 
qu'un bloc empilé se termine par 
un octet en indiquant la longueur 
(qui n'a jamais que les Valeurs 
6,7,16 ou 22). Or, à l'initialisation 
de la pile (avec RUN ou CHAIN 
ou NEW, voire après une remise à 
zéro), le BASIC initialise le pointeur 
de pile (naturellement en RAM) 
et empile un ZERO (sur la pile 
BASIC). Pour accéder à la pile par 
la suite, le BASIC ne fait appel 
qu'à son pointeur et identifie le 
début de pile par l'indication de 
la longueur de bloc nulle. 


Un lecteur éveillé devrait avoir 
désormais l'idée de la méthode 
mise en œuvre pour redéfinir la 
pile BASIC. 


3) Où se situe quoi? 
e Le pointeur de pile BASIC: il est 


en #B08B sur 464 et en #B06F sur 
6128. A l'initialisation, il est mis à 
jour et est dupliqué en #AE32 sur 
464 et #AE19 sur 6128. 


e La pile BASIC: sur 464 elle est 
située en #AE8B et sur 6128 en 
#AE6F. Elle s'étend sur 512 octets. 


LA REDEFINITION DE LA 
PILE BASIC ET SON 
CONTROLE 


1) La méthode 


Les esprits sagaces l'auront devi- 
née: aprés lancement d'un pro- 
gramme, qui initialise pointeur de 
pile et pile BASIC comme vu pré- 
cédemment, il faut modifier le 
pointeur pour le faire pointer sur la 
zone qu'on a choisie comme nou- 
velle pile BASIC. Dans le même 
temps il faut initialiser cette zone 
comme une pile BASIC qui se res- 
pecte, en la faisant débuter par 
un 0. Naturellement le pointeur est 
alors incrémenté (cf le sous-chapi- 
tre 2 du chapitre précédent). 


A cela se limite l'intervention dans 
le système, le BASIC gérant par la 
suite cette nouvelle pile comme si 
de rien n'était! Une première ins- 
truction d'extension au système ré- 
sident (Resident System eXtension 
en anglais), ou RSX, se chargera 
de cela. La seconde RSX contrôle- 
ra la place libre dans la nouvelle 
pile; le BASIC ne connaissant com- 
me limite supérieure que celle de 
la pile standard, cela pourrait con- 
duire à des catastrophes. 


2) La création des RSXs (une fois 
pour toutes) 

Tapez le programme CREERSX.BAS 
et lancez-le. || écrira en mémoire 
les RSXs avec leur routine d'im- 
plantation et d'initialisation et sau- 
vegardera le tout (même pas 256 
octets!), en fichier binaire évidem- 
ment, sous le nom de BSTACK.RSX, 
ou sous tout autre nom de votre 
choix (BSTACK, pour les amateurs 
d'étymologie, pour Basic STACK, 
«stack» signifiant «pile» en anglais 
informatique). 


3) L'implantation des RSXs et leur 
initialisation. 


En général oninitialise les RSXs dès 
après les avoir chargées. C'est ce 
processus que nous SUIVrons aussi. 
Soit donc l'adresse de charge- 
ment quelconque «ady», étant en- 
tendu qu'il est de loin préférable, 
sinon indispensable, de la choisir 
dans la RAM utilisateur. Un exem- 
ple de chargement et d'initialisa- 
tion (aussi à l'adresse “ad”} est: 


ad=0XLOADIBSTACKRSX», ad: CALL 
ad 


Et oui, une fois n'est pas coutu- 
me, l'Utilisateur a le libre choix de 
l'adresse d'implantation des RSXS, 
et cela non pas à la création du 
code (ce que déjà peu propo- 
sent), mais à chaque charge- 
ment! Pour ceux qui ne connai- 
traient pas la méthode et qui dé- 
sirer aient étendre leur culture du 
langage d'assemblage, la mé- 
thode autorisant cette petite 
prouesse est expliquée dans ses 
grandes lignes dans le dernier 
chapitre, «PROGRAMME MACHI- 
NE EXECUTABLE A TOUTE ADRESSE 
DE CHARGEMENT», réservé aux 
amateurs du langage d'assem- 
blage bien entendu. 

Pour les autres, retenir qu'ils ont 
libre choix (total, absolul - en RAM 
utilisateur cependant) de l'adres- 
se de chargement de BSTACK.RSX 
et qu'il faut juste faire le CALL à 
cette adresse. 


4) Emploi des RSXSs 


IBSTACK,deb.lon: installe la pile 
BASIC à l'adresse “deb” et lui as- 
signe une longueur de “lon”, ou 
sa taille, au choix pour la termino- 
logie. 


Comme déjà évoqué, le BASIC ne 
détecte le remplissage de sa pile 
que par comparaison du pointeur 
de pile avec une valeur qu'il a en 
ROM (grosso modo), et qui cor- 
respond au haut de la pile BASIC 
standard. |! n'y a donc aucune 
chance que le BASIC interrompe 
un programme pour “pile pleine”, 
avant que la pile redéfinie n'ait 
probablement planté le CPC en 
recouvrant des zones très délica- 
tes, qui sont des «chasses gar- 
dées» du système d'exploitation et 
du BASIC et qui sont situées sous 
la pile standard (rappelons que la 
pile BASIC croît vers les adresses 
supérieures). Une bonne chose est 
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déjà d'implanter assez bas sous 
les zones sensibles la nouvelle pile. 
Mais il est toujours préférable de 
garder quelque moyen de con- 
trôle des événements, ce dont se 
charge la seconde RSX: 


IBSFREE,@a®%: transmet à une va- 
riable entière (ici a% pour l'exem- 
ple) la place libre dans la pile 
BASIC redéfinie. Si jamais il n'y en 
a plus (a%<0), le programme s'in- 
terrompt sur le message d'erreur 
«Memory full», C'est le seul moyen 
de contrôler l'état de remplissage 
de la pile. Le paramètre “lon” 
donné avec BSTACK n'est pas mis 
à profit par le BASIC (si vous ne 
l'avez pas compris, relisez toutl) 
mais uniquement par cette se- 
conde RSX, pour calculer la place 
encore libre, et le cas échéant 
arrêter tout. 


Remarques : 

e lorsqu'on a bien défini la place 
disponible pour la pile BASIC, il 
peut être plus prudent de donner 
à “lon” une valeur inférieure, pour 
être certain de pouvoir stopper 
avant un débordement fâcheux. 


e l'examen de la place libre en 
pile peut se faire en différents en- 
droits du programme assez sim- 
plement, s'il n’est pas trop long 
ou complexe, par le recours à la 
RSX “ IBSFREE,@a%”, sans idée 
d'utilisation de la valeur de a% 
mais juste pour stopper en cas de 
dépassement. Cependant il est 
plus simple et même plus élégant 
de faire appel à une interruption 
BASICI On oublie trop souvent 
l'intérêt que présente une instruc- 
tion telle que «EVERY x.i GOSUB 
nnnn». Le petit programme de 
démonstration FULL1.BAS met en 
oeuvre le contrôle de pile à l'inté- 
rieur du programme tandis que 
FULL2. BAS le réalise par interrup- 
tion. I! n'y alors pas à jalonner de 
programme de IBSFREE, un seul 
et unique sous-programme se 
chargeant du contrôle de la pile, 
ce qui est très avantageux pour 
un programme long ou complexe. 


e les RSXs ont une vérification du 
nombre d'arguments qui leur sont 
passés incorporée. Si ce n'est pas 
2 pour BSTACK et pas 1 pour BS- 
FREE, il y a interruption du pro- 
gramme avec le message d'er- 
reur «Syntax error” (NB: pour «VA- 


RIABLES LOCALES ET RECURSIVITE» 
- CPC Infos de Janvier 1991 - j’ap- 
pelais directement la routine de 
génération des erreurs en ROM 
BASIC, en lui passant le numéro 
d'erreur, pour interrompre un pro- 
gramme. Cette fois je transmets à 
l'interpréteur BASIC l'adresse 
d'une commande en BASICI Pour 
plus de détails, se reporter au lis- 
ting du source). L'intérêt du «Syn- 
tax error” est qu'il ÿ a automati- 
quement, s'il vient d’un program- 
me, édition de la ligne erronée. 


e tout de suite après avoir défini 
une pile BASIC de faille “lon”, si 
vous en vérifiez l’espace libre 
avec BSFREE vous trouverez “lon”- 
1, et non “lon” comme le croi- 
raient des étourdis. Comme déjà 
plusieurs fois expliqué, O est empi- 
lé à l'initialisation de la pile com- 
me marqueur de son début. 


e pour les avares en espace mé- 
moire, il est utile de savoir que les 
100 premiers octets ne sont utiles 
qu'à l'initialisation des RSXs. La 
place qu'ils occupent peut ensui- 
te être employée à loisir. 


PROGRAMME MACHI- 
NE EXECUTABLE A TOU- 


TE ADRESSE DE 
CHARGEMENT 


Certaines routines, toujours cour- 
tes, qui ne comportent pas de 
sauts où d'appels absolus (sinon 
à des vecteurs système), ni de 
lecture où écriture d'octets en 
leur sein ou relativement à elles, 
sont évidemment chargeables et 
exécutables n'importe où. Il ne 
sera pas question d'elles. 
D'autres programmes détermi- 
nent seulement leur adresse de 
chargement pour se reloger à 
une adresse fixée une fois pour 
toutes à leur conception. Il ne 
s'agit pas non plus de cela ici 
mais bien d‘'adapter le code à 
son adresse de chargement! La 
méthodologie proposée vaut 
pour tout type de routine ou 
programme en code machine, 
quelle que soit sa longueur. Elle 
concerne bien naturellement le 
source. En avant! 


1) Pour tout saut absolu dans le 
programme ou toute lecture ou 
écriture en son sein, toujours utili- 
ser une étiquette. Cela concer- 
ne les instructions faisant référen- 
ce à une adresse absolue (JP/ 
CALL/ LD r,(nn)/ LD (nn).r/ etc...) 


2) repérer également par des 
étiquettes toutes les instructions 
concernées par le 1), ou tout 
petit bloc de telles instructions. 


3) Ecrire la table de toutes les 
adresses absolues repérées par 
les étiquettes évoquées au 2). 
Etant une table d'adresses, c'est 
une suite d'instructions pseudo- 
opératoires “DEFW”. Chaque 
DEFW est suivi d'un nom d'éti- 
quette, auquel est ajouté le dé- 
calage pour pointer effective- 
ment sur l'adresse de l'adresse 
repérée (+1 pour JP, +2 pour LD 
DE,(nn) etc...). 


voir tableau 


Ces 3 règles ayant été appli- 
quéess, il n'y a plus qu'à écrire en 
tête du programme (en tête car 
il est plus simple que l'adresse 
d'appel soit celle de charge- 
ment) la routine d'adaptation du 
programme à sa localisation. Je 
décris maintenant les étapes de 
cette routine (il est conseillé de 
suivre en lisant le source): 


1) détermination de l'adresse de 
chargement: 

e préservation des 2 octets en 
0000 et 0001. 

e écriture en 0000 du couple 
d'instruction: POP HL, JP (HL) 









TABADR:  DEFW VERSION2+1 


DEFW VERSION2+4 


DEFW Aÿt+1 











SUB 84H 
VERSION2: LD (CPCI+1),A 
LD (CPC241),A 


LD (FINPILE+1),HL 
LD À,5ÿ 
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EXEMPLE ILLUSTRANT CES 3 REGLES (EXTRAIT DU SOURCE) : 
(en VERSION2 
d'instructions @ adresse absolue 
qui seront toujours regroup{es; 
on ne les replre donc que par Î 
{tiquette) 


° appel en 0000. 

e retour avec en HL l'adresse sui- 
vant l'appel en 0000 (adret). 

° restauration des octets origi- 
naux en 0000 et 0001. 


2) détermination du décalage 
entre adresse réelle et adresse 
relative au ORG du source: 

. la différence entre l'adresse 
contenue dans HL et celle don- 
née par une étiquette à ce 
même endroit (adrel) relative- 
ment à l'origine (ORG) indiquée 
dans le source est le décalage 
(offset = adret-adrel) à ajouter 
aux adresses de la table des 
adresses (règle 3) pour accéder 
aux instructions à adresse abso- 
lue répertoriées dans cette table 
(règle 2) et aussi le décalage à 
ajouter aux adresses absolues 
relatives au ORG qu'on trouve à 
ces adresses (règle 1) pour obte- 
nir les véritables adresses abso- 
lues (c'est certes peut-être com- 
pliqué mais cela illustre bien la 
logique des 3 règles que je pro- 
pose - qui sont valables pour tout 
type de langage d'assemblage 
- et cela va vite s'éclaircir). 
_stockage de ce décalage. 


3) calcul de l'adresse de la table 
des instructions à adresse abso- 
lue: 

- ajout du décalage à l'adresse 
de la table (tabrel) 

relativement au ORG: adresse 
véritable de cette table (tabadr 
= tabrel+offset). 


4) boucle d'écriture des adresses 


absolues véritables: 
e lecture de l'adresse relative à 


se trouve un bloc 


ORG d'une adresse absolue 

dans la table (adrel1). 

e si c’est 0000 (par convention), alors fin de table 

atteinte. 

Saut au programme où retour. E 
° ajout du décalage à l'adresse relative lue pour 


obtenir 

l'adresse absolue correspondante (adrl = 
adrell+offset), qui pointe ainsi sur Une adresse ab- 
solue. 

. lecture de l'adresse absolue en adfri, toujours re- 
lative à ORG, (adrel2). 

. ajout du décalage à cette adresse relative pour 
obtenir l'adresse absolue (adr2 = adrel2+offset) co- 
hérente avec la localisation du programme. 

° écriture à l'adresse absolue “adrl” de cette 
adresse absolue 

“adr2”. _poursuite de la lecture de la table. 

La routine que j'ai écrite est aussi concise que possi- 
ble et suit scrupuleusement la méthode décrite ci- 
dessus. I! m'étonnerait fort qu'il y ait, d'une part, 
plus simple méthode et d'autre part beaucoup plus 
courte routine. Avis aux chercheurs! 


CONCLUSION 





Il doit être assez rare pour des programmes standards Vous désirez recevoir CPC comment avoir CPC Infos 


de se trouver gêné par la taille de la pile BASIC Infos directement chez vous et Chez votre marchand de jour. 
standard. Cependant, dans le cadre de l’utilisation être certain de l'avoir à  naux? 

par exemple de la récursivité (cf mes articles et pro- disposition. Simple. S'il ne le reçoit pas, 
grammes dans les CPC Infos de Janvier et Mars : A NE 
1991), on peut très vite en atteindre les limites. Aussi 11 numéros dispose du service. Pour ce 
ai-je écrit ces 2 RSXsS pour s’en affranchir. J'espère re DRE ne 2e 
qu'elles rendront bien des services (on peut d'ailleurs 2? b 3 . ICS D UUPE. Voros 
contrôler l'espace libre dans la pile standard en la Cette codif est inscrite dans 
choisissant comme pile redéfinie - | BSTACK, &AEB8B, + 88F de port le code barre sur la couvertu- 





re. 


&200 sur 464 où IBSTACK, &AE6F, &200 sur 6128 ). 
J'espère aussi faire des émules pour la conception 
de programmmes en langage machine exécutables 
où qu'ils soient chargés (j'ai prouvé que c'était faci- 
lement réalisable, même avec des RSXSs). 


De CLS ELLE LEE ELLE EEEEEEEEEE 


0 | | je désire m'abonner à CPC infos et recevoir directement 
} chez moi 11 numéros au prix de 253 F + 88 F de port. 





















































Nom : Prénom : 
= —. Adresse : 
DIE2 Code postal : Ville : 
Or Date : Signature 
We obligatoire 
Je règle 341F par : 
O chèque Q mandat Mes 
Q carte bancaire Date d'expiration VOTRE 
CARTE 
RE D 1 LE A Eu M Lili] BANCAIRE 
ATTENTION ! 
e Les abonnements ne sont pas rétroactifs SEUL CE BULLETIN 
° Envol par avion, nous consulter. D'ABONNEMENT 
BON de EST VALABLE 


(Ho 'E'E SE \RX: 
EXT: 








Envoyez votre bulletin accompagné du règlement à : 
Editions SORACOM - Service abonnement - BP 88 - 35170 BRUZ 


> 600000000000 00000000 000000000000 0000000 00 
CPC N°46 


CREERSX 


[MAR LELELLEECEZEE CELLES EEEELTE 

© Redefinition de la « 

BASIC du CPC + 

38 '} «copyright Y. GOUR 1992 x 

OUR CTITEE TITI TTT EI TITIIIIT. 

5g 

69 DEFINT a-2:MODE 1:CALL &BC92 

89 MEMORY 49998 :a=89F09 

99 VHILE a$C"FIN" 

199 READ a$ 

128 IF a$O'"FIN"THEN POKE a, VALI"&"+a$):azat 
139 VEND 

199 SAVE"bstack.rsx",b,49F 09,198 

289 END 

219 

1999 DATA 21,E1,E9,ED,5B,49,99,81,0E, 99, 22,99,99,C7,ED,53 








1919 DATA 0W,99,B7,ED, 42,44, 4D,11,2F,989,19,5E,23,56,23,7A 
1929 DATA B3,28,24,EB,99,EB, 1A,81,12,13, 1A,88,12,18,EC, 59 


1438 DATA 99,53,00,56,90,5C,90,5F,00,64,99,67, 09, 6A, 09,03 


1949 DATA 09,D0,99,D5, 99, 90,99, CD, 86, B9, 34, 96,09, D6, 84, 32 


1959 DATA 96,99, 32,B2, 66, 32,D8, 98, CD, 99,B9, 21, 79, 8,ÿ1,64 


1969 DATA 09,C3,D1, BC, GC, D, C3, 7D, bd, C3, AE, dd, 42,53, 54,41 


LATH DATA 43, CB, 42,53, 46,52,45,C5, 08,00, 09,00, 00,FE, 82, 20 
1989 DATA 53,0D,66,93, DD, 6E, 02, 36,00, E5, DD, 46,01, DD, 4E, 09 
1998 DATA VB, 49, 22, BD, 99, 3E,00,B7, 21,8B, B4, 11,32, AE, 28, Da 


1190 DATA 2E,6F,1E,19,01,84,71,23, 70,8, 71,23,78,C9,4D, 8 :£ 


111# DATA 23,3E, 94,87, 2A,6B,B8, 28,93, 2A,6F,B9,11,89,89,EE 
1129 DATA B7,ED,52, 23,EB, DD, 66, 91, DD, 6E, 99, 73,23, 72,D4, 21 
113$ DATA EE, 99, 18,93,21,E5,98,S3E,98,B7,11,B5,C9,28,91,1B 
1149 DATA CD,98,B9, D5,C9,45,52,52,4F, 52,29, 32, YA, 99,45, 52 
1159 DATA 52,4F,52,29,37,9A,90,00,00,00,00,00,90,00,09,00 


1169 DATA FIN 
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FULL 


"FULL : 


controle de pile dans le progranne 


129 charge au pif (!) entre 49999 et kaÿ9Q les RSX! 
139 MEMORY &3F#D:a%=&9999+RND441998 : LOAD'bstack.rsx",aX 
:CALL a% 


'initialise pile et variable 
i=Q:ak=@: :BSTACK, ka009, 790 : MODE 2 


un sous-progr. 


en pile =";a%:[F i<1998 THEN GOSUB 194 
isi-{:iF 129 THEN RETURN 


END 


FULL2eres 


"FULL2: 


controle de pile par interruption 


129 "charge au pif (!) entre &999ÿ et kaÿBÿ les RSX! 
139 MEMORY 83F4ÿ:a%-80999+RND*&1098 :LOAD"bstack.rsx",a% 
:CALL a% 


, 


’initialise pile et variable 
i=fta%=@::BSTACK, kaÿ99, 7169 :MODE 2 


met interruption (la + forte: 


it=y:EVERY 19,3 GOSUB 289 


U 


un sous-progr. 


izi-{:IF j>8 THEN RETURN 


END 


SUB d'examen de pile par interruption 
"provoque arret si BSFREE<3ÿ 


289 Di:it=it+{::BSFREÈE, @a%: PRINT "Interruption no":it;" 
Place libre en pile =";a%:IF a%>=3ÿ THEN EL:RETURN EL 
SE PRINT:PRINT'Danger de debordenent !":STOP : END® 


qui n'en finit pas de s'appeler! 
i=iti::BSFREE, @ax: PRINT "GOSUB no";i;"avec place li 


no 31 tous les ÿ.2 d 


qui n'en finit pas de s'appeler! 
i=itl!PRINT "GOSUB no';i:lF i<1999 THEN GOSUB 221 
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Une affaire pour vOUER Yu E 


LOTS d'anciens numéros, des dizaines 
d'articles et de programmes. 


5 N° d’Amstar & CPC 


années 89 à 90 
20 F + 30 F de port par lot 


12 N° d'Amstar 
années 87 à 88 
55 F + 30 F de port par lot 


5 N° Hors-série CPC 


années 87 à 90 
20F + 15F de 
port par lot 


PNA LHLON: 


Ref like EX lots en solde. 








| FRliasés d Re CS CS GUN UNS GUN RUN GUN GUN CURE GUN GUN GUN CUS CUS GUN GUN CUS DURS GUN ORNE OS OS 
Bon de commande du Dbnont à 


] | I 

y Je commande ARS: I 

I : d. Code postal : Ville: "| 
Q 5 numéros de CPC Hors-série pour 20F + 15F de port lets: Side 

Q 5 numéros de Amstar & CPC pour 20 F + 30F de port 

Q 12 numéros d'Amstar pour 55 F + 30F port JE REGLE PAR CARTE BANCAIRE 

A O0 A DE 0 D LE NE EN M 

M e joins mon règlement chèque bancaire Q I 

1 chèque postal Q mandat Q Date d'expiration | Signature | 

I 





L Retournez ce coupon, accompagné de votre chèque libellé à l'ordre des Editions SORACOM - La Haie de Pan -— 35170 BRUZ 








PETITES ANNONCES 


V 


= 
La place réservée aux petites annonces est limi- 
tée. En conséquence, celles-ci passent dans leur 
ordre d'arrivée. Par contre, les petites annonces 
farelues sont systématiquement rejetées. De même, 
comme il est peu probable qu'il existe des “géné- 
reux donateurs” de matériels ou de logiciels, les 
petites annonces faisant appel à ces philantropes 
ne seront insérées que si la nlace le permet. 
Seront refusées toutes les annonces visant à ven- 
dre ou échanger des listes ou copies de logiciels 
non garantis “d'origine”, ainsi que toute annonce 
incitant au piratage. 
En conséquence, réfléchissez bien avant d'envoyer 
vos textes. Les petites annonces doivent impérati- 
vement nous parvenir sur la grille (découpée ou pho- 
tocopiée), le texte étant rédigé à raison d'un carac- 
tère par case. 
Enfin, toute annonce non accompagnée de timbres 
ne sera pas insérée. 


A 











e Vds 6128 + DD1 + 5'1/4 + 
imprimante + disc silicon eutopia 
+ souris. Nombreux logiciels + 
table graphique, nombreux 
livres. Prix : 5O000F. TéI.64.48. 12.98. 





+ Vds CPC 6128 couleur modéle 
91 + de nombreux jeux originaux 
+ revues + joystick. Prix : 3OO0F. 
Tél. (16.1) 34.68.10.71. 





. Vends scanner + 30 due | 600F 
(port compris). Dettori Patrick 11, 
rue du Casino 83230 BORMES. 





e Vas CPC 464 mono ve Bon 
état + DD1 + adaptateur TV + 
joy. + jeux + revues : 1500F. Tél. 
60.13.33.87. 





. Achète bon prix pour 6128 
logiciels bonne qualité et revues. 
Tél.26.07.73.66. 





. Achète fichiers musicaux sous 
interruption où listing source. 
Tél.44.08.37.94.(60). Demander 
Sylvain. 








+ Achète jeux échelon et 
meltdown pour 6128. Delattre 
Ludovic, le Pré Latour, les Alérions 
54700 Pont à Mousson. 





+ Cherche possesseur jeu "Art de 
la guerre’ Broderbund sur 6128 
pour remédier fausse manip dsk 
face 2. Tél.90.04.89.51. 





+ Amis philatélistes si vous voulez 
gérer votre collection sur 6128. 
Pour tout renseignement : tél. 
86.36.49. 89. 





. Vds Amstrad 6128 couleur très 
bon état avec : tuner TV, 78 jeux, 
2 joysticks. Valeur : 7400 F. , ven- 

u : 3800 F. Tél. aprés 18 h. au 
81.81.47.28. 





+ Club jeunes roumains cherche 
pour CPC 6128, souris, joystick 
disq. 3", jeux, revues. D. MANEA 
B.P. 59-30, BUCAREST -70164 
ROUMANIE. 


+ Vds lecteur D7 DDT + 2 jeux très 
bon état. Prix : 800 F. Contacter 
Stéphane, tél 60 03.20.44. aprés 
17h 30 


Vends disquette pleine 
d'utilitaires. Tél. le soir heure repas 
au 33.07 58.73. Demander David. 
e Vends lecteur 51/4 vortex + 
jeux + utilitaires + imprimante DMP 
2000 + livres. Tél. aprés 20h. 39.66, 
01.34 





- Achète un jeux nommé Tyrann 
en disc pour Amstrad CPC 464, 
Tél. 45.94.57.34, 


e Achète livre pour CPC 6128 
Firmware Soft 158 d'Amsoft. Doc. 
français ou photocopie. Frais 
rendus. Tél. 35. 68. 59. Pi 

e Recherche CPC 6128 couleur. 
Prix maximum : 2000 F. Tél. 99. 
52.41.35, 














- LES PETITES ANNONCES ET LES MESSAGES 


nr vos PA seront mises sur le serveur avant la parution du joumal 





LIÈL 




















07 HAL 
RÉRANE 
2 1. "Le 





D ce coupon + 4 timbres à 2,50 F dans une enveloppe. 
F Adresser le tout à : SORACOM - La Haie de Pan - 35170 BRUZ 


# 


: 

| 

| I 

> ti CES pair CRE 
Î 

ñ 





Gagnez du temps ! Sur minitel 36.15. Tapez MHZ 


30 








Helolyel=Re elle, 117 


Valable pour CPC 464 — 664 — 6128 


HAL est une petite boule de poils orange qui 
doit survivre dans un monde étrange. 


S on adversaire est un monstre 
vert qui le poursuit inlassa- 


blement. Le but du jeu est de 
parcourir les 27 tableaux en 
récoltant un maximum de pièces. 


Les astuces sont au rendez-vous : 
briques, pièces cachées et 
passages secrets permettant 
d'éviter certains tableaux. 


HAL se lance par RUN "HAL", et se 
compose des fichiers suivants : 
HAL.SPR, HAL.TAB, SRC.BIN et 
HAL.BAS. = 


À 





19 REM XKXHKNENNEMEXRNEENEN NE EX 
29 REM x4x INITIALISATION ##x 








)TH 
)XA 


38 REM #KAHHXENXEREENERNENNEX —< DUB 
49 DEFINT a-2:ENV 1,3,2,4,2,-3,2:ENT -1,2,19,2,3,-5,4 DVD 


45 SPEED KEY 5,5 


)EJ 


58 MEMORY &3FFF:1F PEEK(&8999)=8 THEN LOAD'"scr",88989:L >JN 


OAD"hal.spr",&7898:LOAD"hal. tab", 84099 


69 DEF FN te(x,y)=RADGO+(y-1)#16+x-1:DEF FNpo(x,y)=&C9B >XE 


B+(y-1)X169+(x-1)45 


78 DIM ta(16,11),sp(19),mon(68) ,mx(68),ny(68) DR 
89 FOR g=1 TO 19:sptg)=47999+(g-1)xBD:NEXT:FOR g=1 TO 2 FF 
7:READ aon(g),mx(g),my(g):NEXT:DATA 39,16,9,39,16,9,29, 
5,7,09,9,9,20,16,9,29,11,8,0,9,9,28,16,9,29,16,9,29,9,2, 


19,18,5,29,16,9,29,16,9,9,9,9,19,8,6 


_—_ 


pu 


85 DATA 28,16,9,29,9,3,8,9,9,8,16,9,1,16,9,2,16,7,1,16, DT 
5,2,16,9,1,16,9,69,16,9,3,16,9,9,9,8 


99 MODE S:BORDER 8:FOR g=8 TO 15:1NK g,9:NEXT MA 
IUUAURELEELEEEEESEEECEPEEEEET DUE 
119 REM x* BOUCLE PRINCILALE +* >XH 
129 REM HI HORREEEENEENERUEK >UG 


139 FOR g=9 TO 15:READ i:INK g,i:NEXT:DATA 8,1,2,11,14, )GV 
28,3,6,15,24,4,8,17,9,18,25 

132 a$=INKEYS:IF a$ço"" THEN 132 )YJ 
135 MODE ÿ:LOCATE 4,25:PEN 2:PRINT'PRESSE SPACE" :PEN 9: )GR 
LOCATE 7,4:PRINT'H A L':PEN 7:LOCATE 3,19:PRINT"by Bitt 

el Juice" 





136 a$=INKEYS:IF a$<>" " THEN 136 )2C 
149 v=3:s=ÿ:p=f:x=2:y=12 UE 
159 ta=1:x=1:y=9:ani=13:0p=3 )XE 


189 xt=x:yt=y:GOSUB 39199:CLS:z=2:2z=12:CALL 48988, FNpo AJ 
(z,221,Sp(17):PEN S:LOCATE 4,24:PRINT USING"##";p:z=11: 
zz={2:CALL &k8998,FNpo(z,zz),sp(18):z=12:22=12:CALL k698 
#,FNpo(z,zz]),sp(19) 


199 GOSUB 19B09:LOCATE 17,24:PRINT USING'H#H";5 

289 ax=x'ay=y:1F x=mx AND y=ny THEN mr=t 

295 IF nr: THEN 7999 

219 IF mon(ta)9 THEN IF no=ÿ THEN vf=vf+i:1F vf)nontt 
a) THEN GOSUB 899ÿ 

249 IF INKEY(47)=9 OR INKEY(77)=8 THEN IF PEEK(FNtelx,y 
+1))>1 AND PEEK(FNte(x,y+1))C5 THEN IF sau=ÿ THEN sau= 
l 


259 IF sau)ÿ THEN y=y-{:sau=sau+t:1F sau:5 THEN sau:f E 


LSE IF y=9 THEN y=1:sau=ÿ ELSE IF PEEK(FNte(x,y))<)8 TH 

EN 3890 

269 IF sau=ÿ THEN IF PEEK(FNte(x,y+1))25 THEN y=y+111F 

y=19 THEN GOTO 7999 ELSE GOTO 269 

275 IF sau:g THEN IF PEEK(FNte(x,y+1))<2 THEN y=y+111F 
y=19 THEN GOTO 7909 

276 IF INKEY(8)=Q9 DR INKEY(74)=@ THEN GOSUB 698 

277 IF INKEY(1)=ÿ OR INKEY(75)=9 THEN GOSUB 798 

479 IF x=nx AND y=ey THEN mr=l 

475 IF mr=i THEN 7999 

489 IF axOx OUR ayOy THEN SOUND 1,8,2,7,8,8,19:CALL 88 
989,FN polx,y),splani):CALL L8989,FN polax,ay),sp(l):an 
i=ani XDR op 

49$ IF no=ÿ THEN FÜR kj=8 TO 8@:NEXT 

598 GOTO 299 

599 ? GAUCHE 

698 IF op=31 THEN op=3:ani=13:CALL &899B,FN polx,y),sp{ 

ani):ani={4 RETURN 

619 u=x-1:1F x=ÿ THEN x=1 

615 IF PEEK(FNte(x,y))>1 THEN x=x+1 

629 RETURN 

699 * DROITE 

89 IF op=3 THEN op=31:ani=15:CALL 48999, FN polx, y), spl 
ani):ani=16:RETURN 

718 x=x+{:IF x=17 THEN ta=tati:IF ta=28 THEN GOTO 39299 
ELSE mo=ÿ:5=5+3:a=REMAIN(1):GOTO 198 

715 IF PEEKIFNtelx,y))21 THEN x=x-1 

728 RETURN 

2907 REM KAXKXEMYENEENEENENAEEX 

2998 REM *x TEST DE COLLISIONS x 

2999 REM KYHKXEMXENEENEENEXAEEX 

3999 q=PEEK(FNte(x,y)):1F qg=3 THEN sau=ÿ:y:y+1:G0TO 276 


3095 !F g=6 OR q=2 THEN SOUND 4,199,32,9,1,1:CALL 88809 
FNpotx,y),sp{17):p=ptt:s=5#1:POKE FN te(x,y),3:px=x:py 
EY:AFTER 3,3 GOSUB 39994 :G0SUB 29998:sau:f:y=y+1:GOT0 2 
76 

3849 IF q=1 THEN POKE FN te(x,y),3:CALL 48999 ,FNpolx, y) 
,Spt3):sau=ÿ:y=y+1:GO0TO 276 

3859 IF Q=5 THEN ÿ:y-1:1F y=@ THEN y=1:sau-ÿ:G0T0 268 E 
LSE GOTO 3999 

3869 IF q=7 THEN FOR L:599 TO 1 STEP -49:SOUND 5,1,9.5, 
15:NEXT:CALL &8999,FNpotx,v),sp(13):POKE FN te(x,y),3:v 
cvtlie=s+5:GOSUB 29898 :px=x:py=y: AFTER 19,3 GOSUB 39809 
:sau=ÿ:y=y+1:GOTO 276 

3794 GOTO 276 

5997 REM X###XHXEMXAXERAENNEEX 

59908 REH « MOUVEMENT MONSTRE +# 

5090 REM X##X#HX HU HUEXHUNXENX 

6899 Dl:amx-nx:any=my:1F x=nx AND y=ny THEN El:a=REMAIN 


e 
— 


DNF 
> NB 
>XY 
)NY 
)1C 


)CF 
YD 
UD 
> AP 


)TE 
»CQ 
)ZD 
UE 
)AX 


LA 


ZP 


)CU 
ZE 
VA 
NT 
DVK 
>AV 


32 





(1) :mr=1:RETURN 

6929 nmx=mx-1:1F nx=9 THEN CALL 48998, FNpotamx, any), split 
}:a=REMAIN({):mo=ÿ:El:RETURN ELSE IF PEEK(FNte(mx,ny)) 
>1 THEN mx=mxtl:ans={i:00=7:EVERY 8,1 GOSUB 6188 

6939 IF PEEK(FNte(mx,my+1))€2 THEN my=ny+1:1F my=18 THE 
N CALL L6899,FNpolanx, any), sp(1):a=REMAIN({):mo=Q:El:RE 
TURN 

6849 IF x=nx AND y=ny THEN El:a=REMAIN({):mr21:RETURN 
6969 IF anxComx OR anyComy THEN CALL 48909, FNpotnx, ny), 
splann):CALL &8899,FNpolamx,any},sp(i):ans=anm XOR 00:E 
L:RETURN 

6879 EI :RETURN 

6199 Dl:anx=mx:amy=ny: IF x=mx AND y=my THEN El:a=REMAIN 
{(1):ar=1 RETURN 

6119 mx=mxt{:1F nx=17 THEN CALL &8989, FNpolanx, amy), spl 
1):a=REMAIN({):mo=f:El:RETURN ELSE IF PEEK(FNte(nx, my) 
194 THEN mx=nx-1:ann=9:00=3:EVERY 8,1 GOSUB 6988 

6128 IF PEEK(FNte(mx,my+1))€2 THEN my=my+t:1F my=it THE 
N CALL &k6999,FNpolamx,amy),sp(1):a=REMAIN({):mo=Q:EI:RE 
TURN 

6139 IF x=nx AND y=my THEN El:a=REMAIN(1) :mr=1: RETURN 
6149 IF anxC>mx OR any(omy THEN CALL &8499,FNpo(nmx, my), 
splanm):CALL 88299, FNpolamx,any),sp({):ann=anm XOR 00:E 
[RETURN 

6159 ET :RETURN 

6997 REM x+###44% 

6908 REM * MORT + 

6999 REM *####x44 

7999 IF mr:1 THEN CALL 48988, FNpolax,ay),sp(1):CALL &Bÿ 
89,FNpotanx, any), spt1):FOR L=1 TO 26:CALL 48908, FNpo(mx 
,8ÿ),SpCann):SOUND 5,Lx125,5:CALL 48998, FNpo(mx, my), spl 
ani)!NEXT:mr=#:G0TO 7995 À 
7892 CALL &889,FN potx,y),sptani):CALL 48999,FN polax, 
ay),3pC1):FOR L<:1 TO 26:S0UND G,L#{2C,G:NEXT 

7895 no=ÿ:a=REMAIN(1):El:v=v-1:1F v=9 THEN CLS:d=5:dd=5 
:CALL &8999, FNpotd,dd),sp(13):PEN {{:LOCATE 8, {4:PRINT" 
X "yv:LOCATE 5,12:PRINT'GAME OVER":FOR d=8 TO 3999:NEXT 
RUN 

1829 x=xt:y=yt:GOTO 189 

6998 vf=ÿimo=t:mx=mx(ta) :my=ny(ta):anx=mx:any=my:CALL & 
8899, FNpotnx,ny),sp(9):1F x2mx THEN anm=11:00=7:EVERY 8 
,+ GÜSUB 6199:RETURN ELSE anm-9:00-3:EVERY 8,1 GOSUB 68 
ÿB:RETURN 

19909 REM XEKNENNENN ENS ENENAEENX 

19919 REM #xx DESSIN TABLEAU x#x 

19929 REM XEKHENNEHNENEENERNEKNX 

19938 a=REMAIN(1):tt=44999+((ta-1)*169):CALL LB92B,tt:x 
={:CALL &8498,FN polx,y),sp(ani):nx=f:ay=f:x={:ax=x:ay= 
y:m0=ÿ:RETURN 

28998 PEN 9:LOCATE 4,24:PRINT USING"##";p:LOCATE 17,24: 
PRINT USING"H##H";S:RETURN 

38989 CALL &8898,FNpot(px, py), sp(3):RETURN 

39199 CLS:d=5:dd=5:CALL &8988,FNpotd,dd),sp(13):PEN 11: 
LOCATE B,19:PRINT" X ";v:FOR d=ÿ TO 2989 :NEXT: RETURN 


39299 a=REMAIN(1):tt=84999+((ta-1)*169):CALL L8D2B,tt:F 
OR gh=ÿ TO 8BYB:NEXT 

38219 a$=INKEY$:1F a$Q"" THEN 39218 

39229 CALL &BB86:RUN 


)CL 


)TZ 


)1B 
)AX 


)GF 
VW 


>KR 


FW 


v 


TK 
>TH 


WF 
)YH 
DL 
>LK 


>KK 


>KH 


)BE 


>ZN 


BH 
NH 


AUCHETIE 44 





RS 


DATASI.BAS 


18 A=b4DGG:F=kaGaÿiL LOU: UHILE AG=F:FÜR AzA TD A+IS:READ C$:K= 


ALEMRMACS) :S=S+K+65536k(S+K)327671:1F AK=F THEN POKE A,K 


28 NEXT:READ D$:T=VAL("&"4D$):1F TS THEN PRINT CHR$(7);"Erreu 


r ligne";L'END ELSE L:=L+5:WEND 

34 SAVE'"hal.spr",b,k4806, &649 

199 DATA 90,00,00,00,09,00,00,00,00,09,00,00,00,00, 00,09, 0008 
195 DATA 09,80,00,00,09,00,09,05,00,00,00,00,00, 00,00, 08, 0090 
119 DATA 99,00,00,00,00,00,00,00,00,00,00,09, 00,00, 09,09, 000 
115 DATA 09,80,09,09,00,00,09,00, 00,00, 00, 09,00, 00,90,00, 9000 
129 DATA 69,00,00,00,00,00,00,00,086,80,00,00, 00,09, 00,09, 0009 
125 DATA 09,80,09, 09,00, 00,00,00, 00,00, 00, 00,00, 00,90, 00, 0000 
138 DATA 99,09,09,00,09,00,00,00,00,09, 00,00, 00,09, 00,00, 0000 
135 DATA 09,80,00,99,00,00,00,09,09,09,00,00,90,00,96,00,0000 
149 DATA 09,00,60,00,60,00,00,00,00,00,00,00,00,09, 00,09, 0009 
145 DATA 09,80,80,09,00,00,00,09,00,00,00,09,90,08,00,00,0000 
159 DATA F9, 79,64,8C,98,B9,64,9C, AC, 88,F9,6C, 4C, 48, 89,B9, 9784 
155 DATA CC, FC, 68C, 96, BY, 8C, 84,48, 89,64,9C,C9,88,08,8C, 48, DDFC 
169 DATA 89, 49,90, 00,09, 00,09, 08,CC,8C,58,B9,E4, CC, 8C, 59, 1329 
165 DATA 64,8C,4C, 8C, 59, BC, CC, BC, 48,59, 9C, OC, CB, 88,58, 4C, 1928 
179 DATA C8,98,C9,44,8C,4C,C9,88,94,0C,C5, 09, 09,09, 90,89, 1DA4 
175 DATA F9,79,64,8C, 98, BY, 64, 9C, 4C, B9,F9,8C, 4C, 48,88, BQ, 2528 
189 DATA CC, UC, 8C,98,B8,8C,84,48,88,64,8C,C9, 89,09, 8C, 48, 2BAÿ 
185 DATA 89,49,80, 89,99, 99,90,99,CC,BC,59,B2,E4,CC, 9C,58, 34C4 
199 DATA 64,0C,4C,8C,59,8C,CC,8C, 48,59, 8C, BC, C9, 89, 59, 4C, 36CC 
195 DATA C8,68,C9, 44, BC, BC, C4, 80, 94, OC, C9, 09,08, 00,00, 00, 3Ba8 
299 DATA 9F,B7,9F,F3,7F,5B,B7,3F,B7, 7F,8F,B7,3F,F3,7F,3C, 42F9 
295 DATA 3C,30C,30,3C, 05,58, 7B,B7, AA,05,F3,7B,7F,AA,95,5B, 4921 
218 DATA 7B,B7,AA,95,F3,7B,7F,AA,05,5B,7B,B7, AA, 05,F3,7B,5148 
215 DATA 7F,AA,85,5B,7B,B7, AA, 05,F3,7B,7F,AA,95,5B,7B,B7,56DB 
228 DATA AA,95,F3,7B,7F,AA,95,5B,7B,B7,AA,05,F3,7B,7F, AA, 69F9 
225 DATA D5,5B,7B,B7,AA,805,F3,7B,7F,AA,05,5B,7B,B7,AA,95,6812 
239 DATA F3,78,7F,AA,05,58,7B,B7,AA,95,F3,7B,7F,AA,05,5B,G6FE1 
235 DATA 7B,B7,AA,05,F3,7B,7F,AA,05,5B,7B,B7,AA,05,F3,78, 7898 
244 DATA 7F,AA,05,5B,7B,B7, AA, 05,F3,78B,7F,AA,85,5B, 7B,H7, 7FOB 
245 DATA AA,85,F3,7B,7F, AA, 05,5, 7B,B7, AA, Ü5,F3,7E,7F,AA,87B0 
258 DATA 44,CC,CC, CC, 88,6C,9C,F9,9C,48,8C,58,FD,A4,48,8C,9g11 
255 DATA 58,D9,F9,48,8C,E9,46,F9,48,8C,B4,48,F4,48,8C,9C, 9885 
264 DATA 48,F4,48,8C,4C,48,Au,48,8C,8C,4B, A4, 48, 8C, 8C, 56, SE8D 
265 DATA 9C,48,8C,8C,D9,9C,48,BC, DC, A4, 0C, 48, BC, DC, 9C, OC, A2DD 
278 DATA 48,8C,9C, A4,8C,48,8C,9C,84,0C, 48,49, Cÿ,C9,C9, 89, A925 
275 DATA 44,CC,CC,CC, 88, BC, BC, FY,0C, 48, 8C, 58, F8, A4, 4B,8C,B17D 
289 DATA 58,D9,F9,48,8C,E9,46,F9,46,8C,84,4B,FD, 48, BC, UC, B9F{ 
285 DATA 4B,F9,48,6C, BC, 4B, A4, 48, 8C, DC, 48, A4, 48,&C,4C, 58, BFFQ 
294 DATA UC, 48,8C,8C, DS, 4C, 48,8C,8C, A4, BC, 48, BC, QC, BC, QC, C449 
295 DATA 4B,8C,4C, A4,8C, 48, 8C, DC, B4,9C,48,49,C8,C8,C8,B8,CA9 
398 DATA 99,99,3F,2A,99,09,15,3F,B7,98,09,3F,7B, 79, 2A,09, CD62 
395 DATA 2A,30,F3,A2,88,69,16,B7,7B,99,54,79,7B.B7,98,2A,D337 
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319 DATA 15,B7,F3,15,3F,3F,51, 7B,99,3F,F3,15,F3,15, 14, A2, DO5A 
315 DATA F3,F3,3F, 78,28, 78, 7B,3F,F2, 30,B7,F3,7B,F3,F3,F3,E381 
329 DATA A2,B7,B7,B7,B7, A2,51,7B,7B,7B,80,09,B7,B7,A2,08,EB73 
325 DATA 90,89,3F,2A,99,09,15,3F,B7,09,00,3F,7B,79,98,08,FE1A 
339 DATA 2A, 3C,F3,A2,99,69,16,B7, 2A, 09,54, 79, 7B, A2, 69, 2A,F389 
335 DATA 15,87,F3,15,3F,B7,2A,7B,09,B7,2A,00,F3,00,14,00,FBED 
349 DATA 51,F3,99,78,28,51,2A,2A,78,28,B7,A2,7B,F3,F3,F3, S0B6 
345 DATA A2,B7,B7,B7,B7,99,51,7B,7B, B,09,09,B7,B7,A2, 00, 9806 
359 DATA 99,15,3F,99,09,09,7B,5F,2A,09,15,B6,87,3F,09,51,9B59 
355 DATA F3,3C,15,89,B7, 7B, 29, 06,99, 7B,B7,B6,A8,98,F3, 78, 1283 
369 DATA 2A,15,99,B7, A2, 3F,3F, 2A,F3,2A,F3,3F,09,F3,F3,51, 1949 
365 DATA 28,2A,B7,87,14,B4,3F,F3,7B,3E,F1,3F,51,F3,F3,F3,2216 
379 DATA B7,51,7B,7B,7B,7B,99,B7,B7,B7,A2,09,51,7B,7B,99, 2916 
375 DATA 99,15,9F, 99,99, 09, 7B, 3F, 24,09, 90,B6,B7,3F,90,51,2C4D 
389 DATA F3,3C,15,99,15,7B,29,96,98,51,B7,B6, AB,09,F3,7B, 32B4 
385 DATA 24,15,99,B7,15,7B,3F, 2A,F3,09,15,7B,09,F3,A2, 08, 37BB 
399 DATA 28,90,15,A2,14,B4,90,51,7B,14,B4,15,51,F3,F3,F3, 3E35 
395 DATA B7,89,7B,7B,7B, 7B,09,B7,B7,B7,42,00,51,7B, 78,08, 44F6 
498 DATA 99,00,3C,00,00,00,14, A9, 28,09,99, 7C, A9, 16, 09,09, 4742 
495 DATA 56,56,56, 28,54, A9, FC, 93, BE, 78, FC, A9,57,16,F8,FC, 4FGC 
414 DATA FC,03,57, 7D,FC, A9, A9, AB,FE, FC, 93,56,57,FC, FC, FC, 5ADG 
415 DATA 93, AB, BC, A9, A9, A9,57, 7C,FC,56,57,16,FC,FC, A9, AB,6349 
429 DATA BB, 76,9B,43,FC,67,4F,27,BC,B9,8F,95,9B, 28, 4F,9A, 6086 
425 DATA 99,80,3C, 99,09, 99,14, A9, 28,09, 99, TC, A9, 16,98, 08, GBE2 
439 DATA 56,56,56, 28,54, A9,FC,93,BE, 78, FC, A9,57,16,F9,FC, 743C 
435 DATA FC,83,57,7D,FC, A9, A9, AB,FE, FC, 93,56,57,FC,FC, FC, 7EAG 
449 DATA 93, AB, BC, A9, A9, A9,57, 7C,FC,56,57,16,FC, FC, A9, AB, B7E9 
445 DATA AA,7C,8B,893,FC, 28,05, 33, 27,27,09,05,CF,6F,6F, 98, 8CB9 
459 DATA 09,90,3C,00,00,90,14,56,28, 09,00, 29,56, BC, 99, 14, 8ED6 
455 DATA A9, A9, A9, 99, 7D,93,FC, 56, A8, 29, AB, 56, FC, B4, AB, 93, 96D3 
469 DATA FC,FC,F8,57,56,56,FC,BE, AB, A9,93,FC, FD,57,93,FC,ALIE 
465 DATA FC,FC,AB,56,56,56, 7C, 29, AB, A9, FC, BC, 77,57,56,FC, AA94 
479 DATA FC,9B,FC,03,97,B9,4F, 76,70, 1B,6F,05,8F,45,67,9A, BODF 
475 DATA 99,89,3C, 09,09, 09, 14,56, 28,09, 99,29,56,BC, 98,14, B2FC 
488 DATA A9, A0, A0, 08, 70, 03, FC, GG, AB, 20, AB, LG, FC, Ba, AB, 43, HAFQ 
485 DATA FC,FC,F9,57,66,66, FC, BE, AB, A9, 93,FC,FD,57,93,FC,C544 
499 DATA FC, FC, AB,56,56,56, 7C, 29, AB, A9,FC, BC, 55,57,56,FC,CE98 
495 DATA FC,14,FC, 83,16, BC, 99, 39, 39, 33, 28, 98, 4F,4F,CF,9A, D3ED 
599 DATA 99,14,3F,28,09,09,69,F3,2A,09,14,D3,3C,B7,99,14, D7AC 
595 DATA 96,D7,3D, 89,69, B6, 96, 79, 24,69, 79, BE, B6, 2A, 7B,B6,DF5F 
519 DATA FF,28,B7, 7B,3C,BE, 14,87, 7B, 79,BE, 79,87, 7B, B6,BE, EB4E 
515 DATA B6,B7,15,3C,FE, 26, 82, 15,B6, 16,51,82,99,7B,28,69,EE7! 
529 DATA 09,40,7B,60,E3,00,08,15,F3,82,09,00,90,3F,00,0ÿ,F198 
525 DATA 33,22,33,22, 33,27, 9A, 27, 9A,27,27,00,27,00,27,27,F39A 
539 DATA 99,27,99,27,27,09,27,00,27,93,22,27,00,27,9F,22,F531 
535 DATA 27,80,27,85,8A,6F,09,8F,05, A4, 5,08, A5,05,0A,0F,F03û 
549 DATA 99,0F,05,8A,6F,00,6F,05, 8A,6F,09,8F, 95, BA,6F,99,FDCQ 
545 DATA 6F,95,84,8F,00,6F,0F,BA,6F,0A,6F,CF,8A,CF,8A,CF, f53E 
55g DATA 22, 33,9A, 33,22, 22,27,22,27,0A, 22,27, 22,27,09,22, 9742 
555 DATA 27,22,27,09,22,27,22,27,09,22,27,22,27,90,22,27,091F 
564 DATA 22,27,09,8A,6F,8A,68F,90,A0,F0,8A,F0,0A,QA,0F,0A, DES! 
565 DATA 0F,89,8A,CF, GA, 6F, 00, BA, BF, BA, 8F,00,6A,6F,8A,6F, 14B6 
579 DATA 98,8A,8F,8A,6F,09,8A,8F,8A,6F, A, 8A,BF,BA,CF,8A, 1C29 
575 DATA 99,60,00,00,00,09,09,00, 09,00, 00,09,00,09,08,09,1C29 
5689 DATA 99,60,00,006,00,00,00,00,00,00,00,00,00,90,09,09,1C29 
585 DATA 99,60,09,90,00,09,09,00,09,00,00,09,90,09,99,00,1C29 
599 DATA 99,00,06,00,09,00,00,00,00,09,00,09,00,09, 80,99, 1C29 
595 DATA 99,69,00,80,09,09,00,09,09,00,00,00,99,08,98,00,1C29 
699 DATA 99,00,00,00,00,00,00,00,00,00,00,09,00,09,09,09,1C289 






Xe 


LA 


DATAS2.BAS 





LB AcSCHOP:FEUDIGMiLSIBBIVRILE AC=F:FOR Azâ TO AHIS:READ CHIE=V 


AL(M&"+CS):5=:S+K+65536k(S+K)32767):1F AC=F THEN POKE A,K 


28 NEXT:READ D6:T=VAL("R"4D$):IF T<?S THEN PRINT CHR$(7);"Erreu 


r ligne";L'END ELSE L:L+5:WEND 

38 SAVE" hal.tab",b,&C499,&1188 

199 DATA 09,00,00,09,00,00,00,90,00,00,09,09,00,09,00,00,6009 
185 DATA 09,60,00,00,00,00,00,00,09,00,09,00,90,90,08,00,0008 
119 DATA 09,00,09,00,00,00,00,00,00,09,00,00,00,09, 00,09, 6099 
115 DATA 09,00,00,00,00,00,00,00,09,00,00,00,00,90,90,00,9008 
128 DATA 09,09,09, 00,09, 00,00,00,00,00,60,00,00,09, 00,09, 0099 
125 DATA 00,00,00,00,00,09,09,00,00,00,09,00,900,00,98,00, 0090 
139 DATA 99,00,00,00,00,00,00,.00,00,00,00,00,00,09, 09,09, 0009 
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135 DATA 09, 80,00,00, 00,00, 09,00, 00,00,09,00,09,00,08,00,0000 
149 DATA 06,00,00,00,08,00,99,00,00,09,80,00, 00, 09, 00,09, 0900 
145 DATA 93,3,03,03,03, 03, 93,03,03,93,03,03,03,03,03,09,0030 
159 DATA 09,00,00,00,00,00,00,00,00,00,09, 00,00, 09, 00,00, 0030 
155 DATA 99, 80,09, 00,00, 09,00, 00,00,00,09,00,09,00,00,00,0930 
169 DATA 09,00,00,00,00,00,00,09,00,00,00,00, 00,00, 00,00, 0930 
165 DATA 09,80,09, 00,00, 00,00, 06, 00,00, 00,00,00,02,09,00,0036 
178 DATA 09,00,09,00,00,00,00,00,00,00, 06,00, 00, 90, 00,09, 0936 
175 DATA 09,80,09,00,09, 00,00, 00, 00,00, 00,00,00,00,00, 00, 0036 
189 DATA 99,00,00,00,09,03,06,03,06,03,03,90,00,09,03,00,0051 
185 DATA 99,80,00, 00,00, 00, 00,09, 09,00,00,00,00,08,08,08,0051 
198 DATA 09,00,09,00,00,00,00,09,00,09,90,00,09,00,00,09, 0951 
195 DATA 93, 83,03, 83,03, 13,03, 03, 03,03, 93,03,03,93,03,03, 0081 
289 DATA 99,00,00,00,09,00,09,09,00,00,00, 09, 00,00, 09,03, 0084 
205 DATA 60,60,80, 09,09, 09, 00,00, 09,00, 09,00,00,00,08,03,0087 
219 DATA 06,00,00,00,06,00,00,00,00,09,00, 00, 60,00, 09,03, 0099 
215 DATA 00,69,00,09,09,09,00,00,09,00,00,00,09,00, 00,03, 0093 
228 DATA 09,06,90,00,09,00,06,00,00,00,00,09, 09,09, 09,03, 0096 
295 DATA 80,82,83, 03,83, 09, 00,00, 09,00, 00,00,09,00,09,93,00A4 
239 DATA 09,00,09,00,09,00,00,00,09,00,00, 00,00, 09, 00,93, DOA7 
235 DATA 80,99,00,00,04,09, 00,00, 09,00,09,00,09,00,08,02, GAD 
249 DATA 69,00,90,00,05,00,00,00,00,00,09,90,00,09, 00,00, GDB2 
245 DATA 93,83,83,03,05,83,03,93,03,03,93,03,03,03,03,03, GDEL 
259 DATA 09,00,09,00,00,00,09,03,07,00,09,00,60,09, 00,00, QDEE 
255 DATA 96, 00,89, 00,00, 00, 00,00, 00,09, 00,00,00,00,00,00,00EF 
268 DATA 09,06,00,06,99,09,09,00,00,00,09, 00,06, 09, 00,00, OGFA 
265 DATA 89,99,06, 09,09, 80,09, 00,01,09,00,00,09,06,08,00,0107 
270 DATA 99,06,90,00,00,00,00,09,00,00,00,00,00,00,06,09,9113 
275 DATA 06,09,80,09,04,04,04,00,00,04,04,04,00,00,00,96,0137 
289 DATA 09,09,00,04,05,05,05,00,01,05,05,05,84,09,00,99,015E 
285 DATA 60,89,84,05,05,05,05,00,00,05,05,05,05,04,08,00,018E 
299 DATA 99,04,95,05,05,95,05,00,00,05,05,05,05, 05, 04,09, 01C8 
295 DATA 03,03,83, 03,93, 03,03, 00,03,03,03,03,03,03,03,93,01F5 
390 DATA 09,00,00,00,08,09,00,00,00,09,00,00,00,00,00,09,01F5 
305 DATA 93, 13,83, 03, 92, 02, 02,03, 03,03, 03,93,93,93,93,03, 9222 
319 DATA 99,00,00,00,00,00,90,00,00,09, 00,00, 00,09, 09,09, 9222 
315 DATA 60,69,20,09,00,01,00, 00,00, 00,00, 00,08,09,00,00,0223 
320 DATA 00,09,00,00,00,00,00,00,00,09,00, 09, 89,00, 09,09, 0222 
325 DATA 60,99,00,09, 00,09, 00,00, 00,00,00,00,00,00,08,00,D223 
334 DATA 09,00,00,00,90,02,03,03,02,02, 02,00, 00,00, 00,09, 0231 
335 DATA 60,08,80, 09,00, 00, 00,00, 00,00, 00,00,00,02,08, 99,023! 
349 DATA 09,00,90,00,99,09,00,00,00,00, 00,00, 00, 09,00,09,0231 
345 DATA 03,03,83,03,03,03,00,00,03,03,03,03,03,03,93,03,0258 
359 DATA 09,00,00,00,00,00,00,00,00,00,09,00, 09,09, 00,09, 0258 
355 DATA 92, 92,82, 02,82, 03, 03,03, 03,03, 03,03,03,03,93, 03, 0286 
369 DATA 09,00,90,09,06,00,00,00,00,00,00,00,00,09, 00,09, 0286 
365 DATA 60,09,80, 00,89, 09, 03,03, 03,03, 00,00,00, 02,0, 09, 0292 
370 DATA 99,01,90,00,90,03,03,03,03,03,00,00,09,09, 00,09, 02A2 
375 DATA 00,99,80,09,23,03,03,03,03,03,00,00,00,00,00,08,02B4 
369 DATA 09,00,90,03,93,03,03,03,03,03,00,00,09,00, 00,09, 029 
385 DATA 09, 00,83, 03,93, 03,03,03,03,03,09,00,00,00,00,00,02E1 
309 DATA 99,03,93,03,93,93,03,03,03,03, 04,00, 00,00, 00,09, 0309 
395 DATA 43,83,03, 93,93, 03, 03,03, 03,03, 05,03,03,03,93,03, 0332 
499 DATA 09,00,00,00,09,00,00,00,06,00,00,00,00,09, 09,00, 0332 
495 DATA 03,03,83, 93,00, 80,00,00,00,00,09,00,00,00,00,09,033E 
418 DATA 09,00,00,00,00,00,09,00,00,00,00,09, 00,00, 00,09, 033E 
415 DATA 08, 80,80, 00,09, 06, 09,06, 00,06, 00,06, 00,06, 93,03, 0362 
428 DATA 09, 00,00,00,00,00,09,00,00,00,06,00, 00,00, 09,00, 0362 
425 DATA 60,99,00,00,90,00,00,00,00,00,09,00,00,00,00,08,0362 


439 DATA 99,00,09,00,06,00,06,00,06,00,06,09, 86,09, 06,09, 0386 
435 DATA 69,89,00, 00,00,00, 00,00, 00,00,09,00,06,08,08,00,0366 
449 DATA 09,00,08,00,09,09,00,09,00,00,00,00, 00,00, 09,09, 0386 
445 DATA 93,03,03, 83,03, 83,03, 03,03,03,03,03,03,03,93,03, 0386 
459 DATA 09,00,00,00,08,09,00,00,00,09, 80,09, 06,00, 09,00,03R6 
455 DATA 09,87,03,83,03, 03,03, 03,03, 03,03,03,03,03,03,03,03E7 
469 DATA 09,00,00,00,00,00,00,00,00,00, 90,00, 00,09, 09,09, 03E7 
465 DATA 09,60,00,80,09, 00,00, 00,00, 00,00,00,08,09,00,08,03E7 
479 DATA 90,01,00,00,08,00,00,00,00,08,09,09, 80,09, 09,09,03E8 
475 DATA 60,08,80,09,00, 00,00, 00, 00,09, 09,00,08,09,00,09,03E8 
489 DATA 09,00,00,00,08,80,00,00,00,00, 00,09, 80,09, 09,09, 03E8 
485 DATA 80,69,20,00,04, 00,09, 00, 00,09, 00,00,08,09,0P,08,93EC 
499 DATA 99,04,00,00,05,80,00,04,80,09,04,09, 00,04, 00,00, 04ÿ1 
495 DATA 93,85,80,80,05,90, 00,05,00,00,05,00,00,05,93,03, 0423 
599 DATA 90,00,00,00,09,00,00,00,00,09,00,00, 80,09, 09,09, 9423 
585 DATA 93,83,03, 03,03, 00,00, 00,00,09,00,00,08,09,90, 08,432 
519 DATA 60,00,90,09,00,00,09,00,00,09,00,00,60,09, 00,99, 0432 
515 DATA 99,99,00,80,00, 00,00, 06,00,00,00,00,09,00,98, 08, 9432 
529 DATA 09,09,00,00,08,00,00,00,00,08,80,09, 00,09, 09,00, 9432 
525 DATA 99, 99,00, 80,00, 09,09, 09,00,09,00,00,00,09,90,98,9432 
539 DATA 99,09,00,00,00,00,00,00,00,00,00,00,00,09, 09,09, 9432 
535 DATA 00,09,09, 80,09, 00,00, 00,00, 00,00,00,08,09,90, 08, 0432 
549 DATA 09, 09,00,00,00,09,00,00,00,00,00,00,00,00, 09,09, 032 
545 DATA 83,03,83,43,03,83,03,03,03,03,93,03,93,03, 03,03, 0462 
559 DATA 09, 00,00,00,00,00,00,00,00,09, 00,00, 00,00, 09,00, 0u62 
556 DATA 9,89,80, 00,80, 00,00, 00, 00,00, 00,00, 08, 00,08, dB, 0062 
569 DATA 09,00,00,00,00,00,00,00,04,00,80, 00, 80,00, 00,00, 0466 
565 DATA 09,49,20,09,09, 00,03, 00,05, 09, 00,00, 03,02,02,00,075 
579 DATA 03,03,93,00,09,00,00,00,05,00,09, 00,80, 00, 00,00, 0483 
575 DATA 60,00,20,00,00,00,00,00,05,09,00,00,00,03,03,03, 049! 
589 DATA 09,00,90,00,00,00,00,09,05, 00,00, 00, 00,00, 00,00, 0496 
585 DATA 68,60, 20,03, 63,03, 00, 00,05, 00, 00,00, 00,00, 08,09 ,Gaau 
50 DATA 49, 00,40, 08,00, 00,00, 00,05, 00, 03,03, 83, 00, 00, 06, daB° 
595 DATA 93,93, 00,60,00,09,00,00,05,00, 00,00, 00,00, 00,08, GABD 
686 DATA 09,00,00,00,00,60,00,00,00,09,80,03,83,03, 03,03, DC 
685 DATA 90,69,09, 80,00, 80,00, 00, 00,00, 09,03,03,03,03,03, G4DB 
619 DATA 99,00,00,00,09,00,00,09,00,09,00,03,03,03, 03,03, O4EA 
615 DATA #9,09,00, 80,09, 80, 00,09, 00,00, 00,03,03,03,03,03,04F9 
629 DATA 99,00,00,00,00,00,00,00,00,09,00,03,83,03, 03,03, 0508 
625 DATA 93, 83,83, 80,00, 00,03,03,03,04,00,03,93,03,03,03,052D 
630 DATA 90,00,00,00,00,00,09,00,00,05,00,03,03,03,03,03, 0541 
635 DATA 99,84,80,00, 02,02, 09, 00,00,05,99,03,93,03,93,02,055C 
649 DATA 99,05,09,00,00,00,00,00,00,05,80, 00,00, 00, 09,00, 0566 
645 DATA 93,93,83,43,03,83, 03, 03,03,03,03,03,03,03,03,03, 0596 
659 DATA 93,03,03,03,03,93,03,03,03,03,83,03,83,03, 03,03, 05C6 
655 DATA 93, 93,83, 83,43, 03,3, 03,03,03,03,03,03,03,03,03,05F6 
669 DATA 93,03,03,03,03,03,03,03,03,03,83,03,83,03, 03,03, 9626 
665 DATA 93,43,93,03,03,83,03,03,03,03,03,03,03,03,03,03,0656 
678 DATA 83,03,93,03,03,03,03,03,83,03,83,03,83,03, 03,03, 0686 
675 DATA 83,93,83, 82, 03,03, 03, 02, 03,03,93,02,03,03,03, 02, 06B2 
684 DATA 93,03,03,00,03,03,03,00,83,03,83, 09,83, 03, 03,09, 06D6 
685 DATA 93,83, 23, 80,83, 03, 03, 00,03,03,03,00,03,93,93, 08, D6FA 
699 DATA 99,09,00,00,00,00,00,00,00,00,00, 80,90, 00, 09,09, DGFA 
695 DATA 43,93,83, 43,3, 43,03,03,03,03,03,03,03,03,93,03,072A 
709 DATA 09,00,00,00,00,09,00,09,00,00, 09,00, 09,00, 00,00, 0724 
795 DATA 68,00,00,00,00,09,00,00,00,00,00,00,00,08,09,00,072A 
719 DATA 09,00,00,00,00,00,00,00,00,09,09, 80, 09,09, 00,00, 0724 
715 DATA 09,69,80, 09,80, 00,00, 00,09,00,09,00,00,00,09,98,072A 
728 DATA 69,00,90,09,00,09,00,00,09,00, 80,00, 80,09, 09,00, 0724 
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725 DATA 68,89, 0, 00,89, 00,09, 09, 00,00, 00, 00,00, 00,08, 00, 072A 
739 DATA 82,09,09,00,02,00,09,00,02, 09, 89,09, 82,00, 00,09, 0732 
735 DATA 69,89,82, 09,09, 09,02, 09,00,00,02, 00,00, 08,02, 00, 0734 
748 DATA 99,99,09,09,00,00,00,00,09,00, 09,00, 00,00, 00,00, 0734 
745 DATA 93,83,83, 93,93, 03,03, 03,03,93,03,03,03,03,03, 03, 076A 
758 DATA 99,09,09,09,00,00,00,00,09,00,00, 09, 89,00, 00,09 ,9764 
755 DATA 99, 90,20, 00, 09,09, 09,00, 09,00,00, 00,00, 00,08,00,076A 
768 DATA 99,09,90,00,09,03,03,00,03,03, 00,00, 00, 00, 00,00, 0776 
765 DATA 08,99,90, 09,93, 09, 00,09, 09,00,03, 00,90, 00,08, 08,077C 
778 DATA 99,09,00,09,03,60,00,00,09,09,03, 09,00, 09, 00,00, 0782 
775 DATA 99,90,09, 93,09, 09,03, 09,03,00,00,03,09, 00,00, 00, 076E 
789 DATA 99,90,09,02,00,09,00,00,09, 00,09, 7, 00,00, 09,00, 0797 
785 DATA 99,99,83, 09,09, 00,06, 01,09,09,09,00,03,09,08,08,079F 
798 DATA 99,93,90,00,09,09,00,00,00,09,09,09,09,03, 00,09, 07A4 
795 DATA 93,99,89, 03,03, 89, 00,03, 03,09, 00,03, 9,00,93,03,07BC 
899 DATA 09,99,90,00,09,00,06,06,06,09, 00,09, 80,00, 09,09, O7CE 
895 DATA 09,89,80, 00, 00,09, 09, 00,00, 09,00,00, 00,08, 09,00, 7CE 
819 DATA 99,90,00,00,00,09,09,00,00,09, 00,09, 00,09, 09,09, 07CE 
815 DATA 09, 80,89, 80, 00,09,09,01,00,09,00,00, 00,00, 09,08, G7CF 
828 DATA 99,00,00,00,00,00,09,00,00,09, 00,09, 09,00, 09,00, O7CF 
825 DATA 08,08,00, 00,06, 09, 09, 00,09, 00,00,00, 00,08, 08,00, G7CF 
839 DATA 09,93,93,03,93,03,03,04,03,93,03,03, 03,03, 03,03, 07FD 
835 DATA 99,93,93, 83, 03, 83,03, 05, 03,03, 93,03, 03,03, 03,03, 082C 
849 DATA 99,93,93,03,03,93,03,05,03,03,03, 03, 03,03, 03,03, 0658 
845 DATA 93,03,93, 03,03, 03,03, 05, 03,03, 93,03, 03,03, 03,03, 088D 
859 DATA 99,00,90,09,00,09,00,00,09, 00,00, 09,00, 00, 00,09, 068D 
855 DATA 99,99,80, 09,00, 09,09, 09, 09,09, 00,00, 00,08, 00,08, 0880 
868 DATA 09,99,09,09,09,00,00,00,00,09,00,00, 09,09, 09,09, 088D 
865 DATA 99,89,80, 09,00, 09,09, 00,00, 00,00,00, 06,00, 00,00, 088D 
870 DATA 99,09,09,09,09,00,02,03,02, 09,00, 00, 89,09, 00,00, 0894 
875 DATA 89,89,80, 09,00, 09, 00,02, 09,00, 00,00, 00,00, 09, 08, 0806 
889 DATA 99,90,00,00,00,00,00,00,00,00, 00,00, 89,09, 09,00, 0896 
885 DATA 69,80,20, 09,09, 09,00, 09,09,00,00,00,00,06, 00, 09, 0806 
899 DATA 99,99,09,09,09,90,03,03,03,03,00, 09,00, 00, 00,00, GBA? 
895 DATA 43,83,23, 93,09, 09, 00,09, 00,00, 00,00,03,03,03, 03, GBEA 
999 DATA 99,09,09,09,09,09,00,00,05,00, 00,00, 09,00, 09,00, O8EF 
995 DATA 09,99, 09, 09, 99,09, 00, 09,05,00,00,00,09, 08,06, 09, 06Ca 
914 DATA 89,09,00,09,00,00,00,00,00,00, 00,09, 00,00, DO, 03, 9BC7 
915 DATA 98,68,00, 00,80, 00,00, 00, 00,00, 00,00, 00, UD,01, 03, OBCB 
J29 DATA 09,09,00,00,09,60,00,03,00,03, 00,0, 00, Où, 00,03, DEDa 

925 DATA 60,80, 20, 09,90, 03, 00,03, 09,03, 00,03, 05,00, 08,03, 06E3 

934 DATA 99,99,09,93,99,03,90,03,09,03,00,03, 09,00, 00,03, 08F5 

935 DATA 99,83,29, 03,00, 03, 09, 03, 03,03, 02,03,00,03,00,03,0910 

949 DATA 99,93,09,03,09,03,03,03,03,03,03,03, 00,03, 80,00, 092E 

945 DATA 83,83,93,93,03,83, 03,03, 03,03,03,03, 03,03, 03,03, 095E 

959 DATA 99,00,90,00,00,00,00,00,03,03, 00, 09,00, 09, 00,03, 0967 
955 DATA 93,80,03, 93,03, 03,89,00,03,03,00,03,03,03, 00,03, 0988 

969 DATA 93,09,09,00,08,03,09,00,02,03,00, 80,00, 03, 00,03, 9999 

965 DATA 93,81,20,09,00,03,09,00,00,03,01,00,0D, 03,08, 03, D9AA 

978 DATA 93,09,09,90,00,03,00,00,03,03, 00,09, 00,03, 09,03, G9EC 

975 DATA 93, 89,00, 09, 00,83, 09,09,02,93,00,00,00,03,90, 03, 99CD 

989 DATA 93,91,99,09,90,03,00,09,09,03,01,00, 09,03, 09,93, DE 

985 DATA 93,90, 09, 99, 89,03, 09,00,03,03,00,00,00,03,09,03,09F0 

999 DATA 99,09,00,00,00,03,09,00,00,09,00,00, 09,03, 00,09, D9FG 

995 DATA 93,83,90,09,80,03,00,03,03,03,03,00,00,03,90,03,0A11 

1909 DATA 93,93,03,03,83,03,03,03,03,03,03,03,03,03, 03,03, DAal 
1805 DATA 99,09,00,00,09,00,00,00,08,00,00,00,09,00,00,93, Bauu 
1919 DATA 99,80,09,09,00,09, 00,09, 06,00, 00,09, 00,09, 00,03, GA47 
1815 DATA 99,09, 00,00,09,00,00,00,08, 08,00, 00, 09,00 ,00,03, BAuA 





1920 DATA 09,00,00,00,00,09, 09,09, 00,09, 00,00, 00,00, 00,00, DA4A 
1225 DATA 09,00,00,00,00,0D,00,08,08,00,00,00,00,00,60,03, PA4D 
1930 DATA 99,09,01,00,01,00,01,09,01,09,01,09,01,90,01,03,DAS7 
1835 DATA 09, 09,00,00,00,00,09,08,08,09,08,00,60,90,80,9,DAS7 
1949 DÂTA 00,00,09,00,00,00,00,00, 00,09, 00,00, 00,00,09,08,0AS7 
1945 DATA 43,03,03,03,03,03,43,03,93,03,03,03,83,23,83, 93, JABT 
1959 DATA 43,03,03,03,03,03, 03,03, 03,03, 03,03, 03,03, 03,03, DAB7 
1855 DATA 43,03,03,03,03,03,93,03,03,03,03,03,93,03,83, 03, GAE7 
1969 DATA 93,03,03,03,03,03,03,03,03,03, 03,03, 03,93,03,03,0B17 
1865 DATA 06,06,06,06,06,06,96,06,06,06,06,06,06,06, 86,06, 9877 
1979 DATA 09,09,09,00,00,00,00,00, 00,09, 00,09, 00,09, 00,00, 0B77 
1975 DATA 93,03,03,93,03,03,93,03,03,03,03,03,83,03, 83,03, 9BA7 
1989 DATA 93,03,03,03,03,03,03,03,03,03,03,03, 03,03, 03,03, 0BD7 
1985 DATA 09,09,00,00,00,06,08, 00,08, 08,00,00,60,20, 89,09, PBD7 
1999 DATA 09,09,09,00,00,00,00,00,00,00,09,09, 00,09, 00,09, UBD7 
1895 DATA 43,03,03,03,03,03,93,03,03,03,03,03,03,23,83, 03, 4C07 
1189 DATA 93,93,03,93,03,03,03,03,03,03,03,03,03,03, 03,93, 0C37 
1195 DATA 93,03,03,03,03,03,03,03,03,03,03,03,03,03, 03,83, CET 
1119 DATA 00,00, 08,02,02, 09,02, 02, 00, 02, 02,09, 02,02, 00,09, 0C77 
1115 DATA 86,00,00,00,00,00,00,08,08,00,09,00,90,00, 99,99, 0C77 
1129 DATA 09,08,06,09,00,09, 00,00, 00,00, 09,09, 09,09, 09,09, 0C77 
1125 DATA 93,03,93,05,05,03,05,05,93,05,05,03,85,05, 03,03, ACB7 
1138 DATA 09,09,00,00,00,09,00,00, 00,09, 00,09, 00,09, 00,00, 0CB7 
1135 DATA 09,09, 00,03,03,03,03,03,03,03,03,03,03,03,03, 03, BCDE 
1149 DATA 08,00,00,03,03,03,03,03,03,03,03,03,03,03, 03,03, 0D95 
1145 DATA 43,03,03,93,03,03,93,03,03,03,03,03,03,93,93,93, 0D35 
1159 DATA 93,03,03,03,03,03,93,03,03,03, 03,03, 03,03, 03,993, 0D65 
1155 DATA 49,03, 93,03,03,03,03,03,03,03,93,03,93,83, 63,43, 092 
1169 DATA 09,03,03,03,03,03, 03,03, 00,09, 00,00, 00,03, 03,93, ODBO 
1165 DATA 99,09,00,00,00,00,08,08,08,09,09,09, 80,09, 00, 00, HDBO 
1179 DATA 00,00,08,00,09,00, 00,00, 00,09, 00,09, 09,00, 09,09, ODBY 
1175 DATA 93,03,93,03,03,03,02,02,02, 08,00, 08,53,03, 03,03, GDD4 
1189 DATA 09,00,00,00,00,00,00, 09, 80,09, 00,09, 00,00, 09,04, GDD4 
1185 DATA 93,03,43,03,03,03,08,00,00, 08,00, 00, 00,00, 00,00, QDE6 
1199 DATA 03,03,03,03,03,03, 00,00, 00,00, 09,09, 00,06, 00,09, DDF8 
1195 DATA 93,03,93,03,03,93,03,03,03,03,03,03,03,03, 83,03, 0E28 
1299 DATA 93,03,03,93,93,03,03,03,03,03, 03,03, 03,03, 03,03, DE58 
1295 DATA 03,03,93,93,03,03,03,03,03,03,03,03, 03,03, 43,03, DE8B 
1219 DATA 93,93,03,07,43,03,03,03,03,03, 03,03, 03,03, 03,03, UERC 
1215 DATA 09,09,00,00,00,06,06,00,08, 06,08, G0, 09, 09, 80, 09, DERC 
1229 DATA 09,00,06,00, 00,08, 00, 09,00, 00, 09,09, DU, 00, 00, 00, EBC 
1225 DATA 45,03,03,00,00,00,06,00,08,06,00,00, 80, 09,90, 09, 0ECS 
1230 DATA 99,09,00,00,00,00,09,00, 00,09, 09,09, 09,09, 00,01, QEC6 
1235 DATA 09,00,00,00,00, 06,06,00,08, 09,00, 00,00, 00, 99,09, JECE 
1249 DATA 90,09,00,00,00,00,09,00,06,09, 00,00, 00,00, 00,08, DECE 
1245 DATA 43,03,43,43,03,03,03,03,03,03,03,03,03, 03,83, 93, DEFG 
1268 DATA 02,03,03,03,03,03, 03,03, 03,03, 03,03, 63,09, 03,09, 0F26 
1255 DATA 03,03,03,03,93,03,93,03,03,03,03,03,03, 03,03, 23, 0F56 
1268 DATA 93,03,03,03,03,03,03,03,03,03, 03,03, 03,93, 03,03, 0F86 
1265 DATA 99,00,00,00,00,00,08,00,00, 00,00, 09,00, 08, 89,09, BF86 
1279 DATA 00,05,95,05,05,05,05,95,05,05,05,05,05,95,05,05, 9FD! 
1275 DATA 99,05,95,05,05,95,05,95,05,05,05,05,05,05, 85,05, 191C 
1289 DATA 99,05,05,05,05,95,05,05,05,05,05,05,05,05,05,05, 1967 
1285 DATA 99,05,95,05,05,05,05,05,05,05,05,05,85,05,85, 05, 10B2 
1299 DATA 99,09,00,00,00,09,90,09, 00,09, 09,09, 09.90, 00,09, 19B2 
1295 DATA 43,03,93,03,03,93,03, 03,03, 03,93, 03,03, 03,83, 03, 10E2 
1399 DATA 99,00,09,00,09,90,00, 20,00, 00,09, 09, 00,09, 00,00, 19E2 
1395 DATA 09,03,03,03,03,03,93,03,03,D3,03,03,93, 03,83, 03, 119F 
1319 DATA 09,00,00,00, 09,00, 00,09, 00,09, 09,09, 00,00, 00,00, 110F 


1315 DATA 09,09, 00,00, 00, 00,00, 08,08, 00,00, 08,00, 09, 80,00, 119F 
1329 DATA 99,01,09,01,09,00,00,00, 00,00, 00,09, 00,99,00,08,1111 
1325 DATA 99,09,90,00,00,01,00,01,00,01,90,01,D9,81,91,99,1117 
1339 DATA 99,09,08,00,90,00,00,00, 09,09, 09,09, 09,09,00,09, 1117 
1335 DATA 89,09,00,09,09,00,00,00,00,08,09,00,09,00,80,01,1118 
1349 DATA 09,03,08,09,00,00, 09,00, 80,09, 00,09, 00,09, 00,09, 111B 
1345 DATA 43,03,03,03,09,90,08,03,93,03,03,03,03,83,43,03, 1142 
1359 DATA 89,00,09,00,00,00,00,00, 00,00, 09,09, 00,99, 00,00, 1142 
1355 DATA 93,03,03,03,93,03,03,03,93,03,03,03, 00, 03,03, 09, 116C 
1369 DATA 99,09,00,00,00,00, 00,00, 00,09, 00,09, 09,09, 09,93, L16F 
1365 DATA 49,09,00,00,00,00,00,08,00,08,09,00,91,00,00,03,1173 
1379 DATA 99,09,00,00,00,00,09,09, 00,09, 00,09, 09,01,09,93, 177 
1375 DATA 09,09,00,00,00,00,00,08,00,08,00,00,00,00,00,03, 1174 
1389 DATA 99,09,06,00,00,09,00,09, 09,00, 00,09, 09,09, 00,03, 17D 
1385 DATA 91,91,93,00,03,01,01,91,01,01,91,01,81,81,91,93, 1192 
1399 DATA 99,09,09,00,00,00, 09,09, 00,00, 00,09, 00,09, 00,03, 1195 
1395 DATA 03,03, 93,03,03,03,03,03,93,03,03,03,03,03,03,03, 1105 
1499 DATA 99,00,00,00,00,00,00,09,09,09, 09,09, 00,09, 00,99, 1105 
1495 DATA 99,09,00,00,00,00,08,00,09,09,00,08,00,09,00,09,11C5 
1419 DATA 09,09,00,00,00,09, 00,00, 00,00, 09,09, 00,00, 00,99, 11C5 
1415 DATA 99,09,00,00,00,00,00,00,01,08,00,03,03,03,03, 09, 11D2 
1420 DATA 99,09,09,00,00,09,09,09,00,09,00,09, 00,09, 00,00, 1102 
1425 DATA 99,00, 06,00,00,00,00,00,09,08,00,08,09,00,09, 89, 11D2 
1439 DATA 99,00, 09,00,09,00,00,09,01,09,00,09, 00,09, 00,09, 11D3 
1435 DATA 99,09,90,00,00,00,00,00,08,00,00,09,00,09,00,09,11D3 
1449 DATA 99,09,09,00,00,00,00,09,06,00,00,00, 09,08, 00,09, 11D3 
1445 DATA 93,03, 93,03,03,03,03,03,08,08,00,08, 80,00, 00,00,11EB 
1459 DATA 99,09,00,00,00,00,00,00, 00, 09,00,09, 09,09, 00,09, 11ER 
1455 DATA 09,03,93,03,93,00,06,06,06,06,08, 19,00, 09, 19,09, 122F 
1469 DATA 99,03,03,03,03,09,00,06,06,09,00, 19, 19,09, 19,09, 1277 
1465 DATA 09,03,93,00,00,00,08,06,06,08,00, 19, 19,00, 19,09, 1289 
1479 DATA 09,03,03,00,00,00,00,06,06,09,00, 19, 19,09, 19,90, 12FR 
1475 DATA 99,03,03,03,03,00,00,06,06,00,00, 10,60, 19,19, 99, 1343 
1489 DATA 69,03,03,00,80,00, 00,06, 06,09, 09, 19,00, 19, 10,08, 1385 
1485 DATA 99,03,93,00,08,00,06,06,06,06,90, 19,00, 10,19,99, 1303 
1499 DATA 99,03,93,00,00,00,06,06,06,06,00,19,00,09, 19,99, t411 
1495 DATA 99,09,00,09,00,00,08,00,00,00,00,00,80,09,90,00,1411 
1599 DATA D9,09,99,09,00,00,09,09, 00,09, 00,09, 00,00, 00,09, 14E1 


DATAS3.BAS 


LA AUB80D:F=LODAT:L= 198 :VHILE AC=F:FDR A=A TO AtÎS:READ C:E=V 
ALO"&M4CS):S2S4K4655364 (S4K)32767): IF AC=F THEN POKE A, 

29 NEXT:READ D$:T=VAL("&"4D#):1F TOS THEN PRINT CHRS(7);"Erreu 
r ligne";L:END ELSE L:L+5:VEND 

39 SAVE"scr.bin",b, &8899, &A7 

189 DATA DD,6E,99,DD,66,91,DD,5E, #2, DD, 56, 83, 3€, 19, DS, ED, 9712 
185 DATA A9, ED, A9, ED, AG, ED, A9, ED, A9, D1,EB, 91,98, 98, 09, 39, DFEL 
119 DATA 94,01,59,C9, 9, EB, 3, C2,0E, 89, CO, 26, F5, ED, 78, 1F, 16C2 
115 DATA 39,FB,DD,6E, 99, DD, 66,91, 11,00, A9, ED, 53, A3, 88,11, 1DAI 
129 DATA 99,C8,ED,53, A5, 89,E, 9A,F5, 36, 19,F5, 7E, 23, E5, 24, 24F6 
125 DATA 3,89, 77,23, 22, A3, 89, 21,B9,6F,3C,91,58, 08, 99, 3D, 2A0B 
138 DATA 29,FC,ED,5B, A5, 89,D5, 3E, 19, D5, ED, A9, ED, A9, ED, A9, 3433 
135 DATA ED, A9, ED, A9,D1,EB, 91,99, 08,09, 39, 04,01, 58, CB, 09, 3469 
149 DATA EB, 30, C2,69,89,D1,13, 13,13, 13,13, ED, 53, AS, 89, Et, 4182 
145 DATA F1,30,29,B7,EB, 01,59, 99,09, ER, ED, 53, A5, 88, F1, 3D, 497A 
159 DATA 29,6, C9, 99,08, 09,06,00,00,00, 80, 09, 09, 09, 00,00, 4B0Q 


PROBLEMES DE 
COMPATIBILITE 
ENTRE CPC ET CPC+ 


Hervé MONCHATRE 





Valable pour CPC + 


Récent possesseur d’un 
CPC nouvelle génération, 
quelle ne fût pas ma surpri- 
se en constatant qu’une 
partie non négligeable des 
jeux que je possède sur 
CPC ne daignaient pas 
tourner sur CPC+. Cela 
concerne même des «hits» 
comme Shufflepuck Café, 
Afterburner ou Nigel 
Mansell’s Grand Prix. 


p'enen mon courage à deux 
mains, je me suis mis à essayer 
«d'adapter ces jeux récalcitrants 
afin de les utiliser sur le nouvel 
Amstrad. 


Le petit topo que j'ai réalisé a 
pour objet de faire le point sur 
l'état actuel de mes trouvailles 
concernant les différences CPC/ 
CPC+, et le moyen de remédier 
aux erreurs pouvant en découler. 


Vous trouverez quelques loaders 
BASIC permettant d'utiliser des 
programmes originaux sur dis- 
quette. les adeptes de l'éditeur 
de secteurs pourront également 
modifier quelques uns de leurs jeux 
grâce à des chaînes hexadéci- 
males. 


LES PROBLEMES LIES A 
LA ROM DISQUETTE 


Comme vous avez dû le remar- 
quer, l'une des principales nou- 
veautés du CPC+ par rapport à 
son ainé, c'est son port cartou- 
che. Amstrad a jugé bon de four- 
nir une partie de la ROM du CPC+, 
non pas en interne mais sur une 
cartouche, celle qui contient 
également Burnin' Rubber. Les 
programmeurs de chez Amstrad 
en ont profité pour retoucher la 
ROM disque, en partie pour pou- 
voir loger de nouvelles RSX dans 
le CPC+ (JEU, JUEGO, IGAME) et 
en partie pour l'optimiser (?). 


Le résultat est que cette nouvelle 
version de la ROM disque est «dé- 
calée» par rapport à l'ancienne, 
ce qui se traduit par un plantage 
assuré lors d’un appel direct à une 
routine de cette ROM. Certaines 
parties ont même été complète- 
ment modifiées | 1! semblerait de 
plus que le FDC du CPC+ (proces- 
seur gérant le lecteur de disquet- 
te) soit légèrement buggé, dixit 
Longshot de Logon System, que 
je remercie au passage pour ses 
conseils éclairés. 


Concrètement, cette différence 
de la ROM disque est la source 
de plantage de chargeurs de 
jeux, plus où moins anciens, com- 
me Strike Harrier Force, Biggle 
Geebee air rallye, Sigma 7, Fer- 
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nandez must die, etc. Tous les 
loaders d'anciens jeux d'Ere Infor- 
matique et d'Infogrames sont 
également concernés. 


Le remède le plus simple est de se 
procurer Une cartouche conte- 
nant l'ancienne ROM du CPC, 
distribuée par Amstrad peu après 
la sortie du CPC+. Il est malheu- 
reusement assez difficile de la 
trouver actuellement. L'autre so- 
lution consiste à adapter ces 
chargeurs, en modifiant les adres- 
ses d'appels aux routines de la 
ROM disque qu'ils effectuent. 
Vous trouverez ci-dessous une tar- 
ble de conversion des principales 
adresses rencontrées. Cette mo- 
dification ne s'avère hélas pas ef- 
ficace à 100%, certains jeux conti- 
nuant à planter, en particulier la 
plupart des anciens softs Infogra- 
mes (Les dieux de la mer, Bob 
Morane Espace) effectuant des 
re-chargements. Voici une petite 
table de conversion des adresses 
d'appel de la ROM disque les plus 
employées : 


CPC CPC+ 
&C6ES &C6EC 
&C91C &C94A 
&C947 &C971 
&C95C &C988 
&c976 &C9D8 
&D252 &D349 


Petit conseil : travaillez sur une co- 
pie de sauvegarde de votre origi- 
nal si vous lancez dans l'adaptar- 
tion de vos logiciels. 


LES PROBLEMES LIES A 
L'EMULATION DU PPI 


Autre source fréquence d'incom- 
patibilité, l'émulation du PPI 82585. 
Pour doter son CPC+ de caracté- 
ristiques étendues par rapport à 
son ainé, Amstrad n'a pas hésité 
à remplacer le Gate Array, le 
CRTC et le PPI 8255 du CPC par 
une puce nouvelle : l'ASIC. Même 
si cette puce est très puissante 
(sprites hard, 4096 couleurs, ruptu- 
re, etc), elle n’en présente pas 
moins un petit défaut au niveau 
de l'émulation du test clavier du 
CPC. Dans la pratique, le clavier 
ne «répond» plus, aucune des 
touches sur lesquelles vous pour- 
vez appuyer n'est prise en comp- 
te par l'ordinateur. Je ne vais pas 
rentrer dans les détails, sachez 
seulement qu'il est relativement 
simple d'adapter la plupart des 
routines de test du port clavier. Un 
exemple de début de «scanning 
clavier» est fourni ci-dessous : 


Routine CPC Routine CPC+ 
LD BC,&F40E LD BC,&F40E 
OUT (C),C OUT (C),C 
LD BC,&F6C0 LD BC, &F6CO 
OUT (C),C OUT (C),C 

LD BC,&F795 LD C,&00 

OUT (C),C OUT (C),C 
LD BC,&F795 

OUT (C),C 


Comme vous pouvez le consta- 
ter, l'adaptation est minime, il suf- 
fit de faire un OUT &F600,&00 
après le OUT &F600,&C0. La seule 
difficulté consiste à retrouver dans 
un jeu cette fameuse routine de 
lecture du port clavier. Une inter- 
face, style Hacker, est chaude- 


ment recommandée dans ce cos, : 


car elle simplifie les recherches. 


Attention ! A priori, l'ASIC est égar- 
lement sensible à l’ordre dans le- 
quel vous transmettez des don- 
nées dans les ports. Ainsi, la routine 
suivante sera incompatible sur 
CPC+, alors qu'elle tourne parfai- 
tement sur CPC : 


LD BC,&F6CO 
OUT (C),C 
LD C,&00 


OUT (C),C 
LD BC,&F40E 
OUT (C).C 


Cette incompatibilité est, avec les 
problèmes liés à la ROM disc, la 
plus fréquemment rencontrée. Elle 
concerne aussi bien des jeux 
comme Barbarian, Super Cycle, 
Tornado low level, que des démos 
ou des fanzines sur disquettes. 


PROBLEMES DIVERS 


D'autres problèmes d'incompati- 
bilité existent également, mais ils 
sont assez rares dans la pratique : 


-Emulation du CRTC 


Vous pourrez parfois avoir des 
problèmes d'affichage sur votre 
moniteur. L'écran n'est plus sta- 
ble, une partie de l'écran est ab- 
sente ou mal placée. Là c'est 
l'émulation du CRTC par l'ASIC qui 
est en cause. Si vous êtes un fan 
de démos, vous devez savoir qu'il 
existe plusieurs types de CRTC (en 
gros, le processeur gérant l'affi- 
chage de l'écran) sur le CPC, plus 
ou moins compatibles entre eux. 
L'ASIC semble avoir été conçu 
pour émuler un CRTC type 0 mais 
dans certains cas, il «réagit» diffé- 
remment. Les techniques dites de 
«rupture d'écran» peuvent parfois 
poser des problèmes. 


L'adaptation de programmes uti- 
lisant de tels procédés est plutôt 
complexe et longue. Heureuse- 
ment, ce genre d'incompatibilité 
est exceptionnel pour des jeux. A 
ma connaissance, un seul pro- 
gramme d'éditeur est atteint par 
ce mal, il s'agit d'un budget sur 
cassette, Octoplex. Par contre, 
pas mal de démos (Terrific démo, 
par exemple) refusent de fonc- 
tionner sur CPC+ à cause de 
l'émulation CRTC. 


-Programmes BASIC protégés 


Toujours à titre d'information car, 
dans la pratique, les éditeurs 
n'utilisent jamais ce genre de bi- 
zarreries, des programmes BASIC 
modifiés dont le chargement 
s'opère comme un fichier binaire, 
plantent si on les démarre sur un 
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CPC+. En général, ce sont des 
petits programmes trouvés dans 
les fanzines (Noix de Croco nod, 
par exemple), qui vous permet- 
tent de générer une telle protec- 
tion. Pour l'instant, l'explication de 
ce phénomène m'échappe, la 
ROM BASIC semblant, en tout 
point, identique à celle d'un CPC 
6128. Heureusement, il existe Un 
palliatif : il suffit de charger le faux 
fichier binaire avec les routines 
système (&BC77, &BC83 et 
&BC7A) puis de le lancer par le 
CALL approprié. 


-Bugs graphiques 


Les possesseurs de CPC+ l'auront 
certainement remarqué, l'écran 
couleur du CPC nouvelle générar- 
tion est plus large que les anciens 
modèles CTM 644. Cette différen- 
ce de faille explique le fait que, 
sur certaines démos en overscan, 
on voit sur le côté droit de l'écran 
des choses que l’on ne devrait 
pas voir | En général, il s'agit de 
bouts de lettres non effacées utili- 
sées pour des scrollings. Cela n'est 
pas à proprement parler un bug, 
mais cela gâche un peu la qualité 
graphique de ces démos. Pour 
avoir Un overscan couvrant de 
l'écran, il suffit de la définir com- 
me suit, en assembleur : 


LD BC,&BCO01 
OUT (C),C 
LD BC,&BD31 
OUT (C),C 
LD BC,&BCO2 
OUT (C),C 
LD BC,&BD32 
rs OUT(C),C 


Autre petite curiosité, si Un pro- 
grammeur a utilisé des rasters 
(changement de couleur d'une 
encre, géré en fonction du ba- 
layage de l'écran) ou des split- 
rasters (plusieurs changements de 
couleur sur une même ligne) dans 
son programme, ceux-ci seront 
décalés un peu vers la droite. Le 
décalage entre le CPC et le CPC+ 
peut être estimé à un NOP. Ceci 
ne concerne que des démos ou 
des intros. 


Il Y a une petite astuce, qui dans 
certains cas, peut éliminer ce pe- 
tit bug, il suffit de décaler l'écran 
du CPC+ d'un caractère vers la 


droite, en tapant la séquence sui- 
vante sous BASIC : 


OUT &BCO0,2 
OUT &BD00,45 


Ou celle-ci en assembleur : 


LD BC,&BCO2 
OUT (C),C 
INC B 

LD C,&2D 
OUT (C),C 


CHARGEURS BASIC ET 
CHAINES HEXADECI- 
MALES 


Vous trouverez à la suite de cet 
article des loaders pour les pro- 
grammes originaux suivants : 


Afterburner (Activision), Asterix 
and the magic cauldron (Mel- 
bourne House), Barbarian (Palace 
Software), Biggles (Mirrorsoft), Blue 
War (Free Game Blot), Bob 
Morane Chevalerie (Infogrames), 
Fernandez must die (Imageworks), 
Geebee air rally (Activision), Nigel 
Mansell's Grand Prix (Martech), 
Shufflepuck Café (Broderbund), 
Sigma 7 (Durell), Sky Demo 2 
(démo de Strooki), Star Raiders Il 
(Electric dreams), Street Sport 
Basketball (Epyx), Strike Harrier 
Force (Mirrorsoft), Super Cycle 
(Epyx), Textomat (le traitement de 
texte de Micro-Application), Turbo 
Cup (Loriciels). 


Si vous maniez avec dextérité un 
éditeur de secteurs, voici quel- 
ques recherches à effectuer pour 
d'autres jeux. Un conseil : travaillez 
TOUJOURS avec une copie de 
sauvegarde de votre jeu, un mal- 
heur est si vite arrivé... 


CONCLUSION 


Les problèmes de compatibilité 
entre CPC et CPC+ ne sont pas si 
importants que l'on pourrait le 
croire. || est en effet possible, 
comme nous venons de le voir, 
de remédier dans la majorité des 
cas aux petits bugs affectant cer- 
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tains jeux ou programmes, même 
si des connaissances de base en 
langage machine sont obligatoi- 
res. C'est l'occasion de vous y 
mettre | 


Sachez que pour adapter certains 
jeux, il sera nécessaire de «dépro- 
téger» leurs chargeurs. Que les pi- 
rates en herbe ne se gaussent pas 
trop, un certain nombre de loa- 


39 


ders de déplombeurs sont égale- 
ment affectés par des problèmes 
de comptibilité (test clavier), et 
ces derniers sont également pro- 
tégés | 


Si vous avez des questions, ou si 
vous souhaitez des conseils pour 
adapter vos jeux originaux sur dis- 
quette, contactez-moi sur le 36 15 
RTE* AMSTEL BAL TOMJERRY. 


AFTER+.BAS 


18 CALL &BB4F:BORDER D: INK 9,8:INK 1,26: MODE 2:PRINT'Afte 

rburner * Loader version originale compatible cpe+ * TkJ 

du GPA*:PRINT:PRINT"Si vous voulez modifier directement v 

otre original, recherchez avec un editeur" 

38 PRINT"de secteurs la chaine ED 78 E6 39 4F F6 C9 ED 79 
(piste 7, secteur 2, adr &298 pour la version originale 

1, et modifiez la en tapant à la place la chaine sui- va 

nte : SE C9 ED 49 DE 99 ED 49 ÿ8":CALL LBB18:MODE S:RESTO 

RE 199 

48 FOR [=4A389 TO &A4SQ:READ AS$:POKE I, VAL("&"+AS$):NEXT:v 
ie=4:POKE &A32D, vie:POKE &A332,8 

69 RESTORE OB:FOR 1=9 TO 15:READ A$:INK !,VAL("&"+A$):NEX 

T:RESTORE 349:FOR I=&BE8S TO RBEOG:READ A$:POKE 1, VAL("&" 

+A$):NEXT:CALL LA3D9 

98 DATA #,1,2,A,14,1A,9,12,18,F,6,D,3,C,8,8 

199 DATA 81,7E,FA,SE,91,ED, 79,F3,21,99,C8, 16,03, 1E, 01,96, 
18 

119 DATA CD,41,A3,21,89,91,16,96,1E,92,96,29,CD,41,A3,21 


129 DATA 09,81, 16,00, 1E, 04,96,08,CD, 41, A3, 3E, 95, 32, 5D, 1C 
138 DATA 3,87, 32, CD, 1C, 91, 7E, FA, 8E, 09, ED, 79, C3, 89, BE, CO 
149 DATA GE, 96,93, BB, 38, 97, 78, 88, 3D,4F,C3, 68, A3, DE, 05, C5 
158 DATA F5,E5,D5, CD, 6B, A3, D1,E1,F1,C1,5F, 78,93, 47,CB, 23 
164 DATA CB, 23, 7C, 83,67, 1E,01, 14,18, D6, 7A, 32, 3E, A4, 32, 47 
17 DATA A4, 22,98, A3, 78, 32, 49, A4, 79,32, 4B, A4, 18,09, 11,41 
189 DATA A4, CD, B7, A3, 3A,4F, A4,B7,20,F4,11,38, A4, CD, At, A3 
198 DATA 11,41,A4,CD,B7,A3,11,44, 44, 21,99, 00, CD, BF, A3, C9 
299 DATA CD, B2,A3,11,3F, A4,CD, 97,43, 21,4F, A4, CB, GE, 28,F3 
219 DATA C9, 81,84, A4, 18,9B,01,EC, A3, 21,4F, A4, 18,03,91,E1 
229 DATA A3, ED, 43,D9,A3, 1,47, 13,05, 1A,13,CD, 19, A4, C1, 19 
239 DATA F7,1,7E,FB, 11,19, 29, C3, 1D, 29, 0C, ED, 78, 77, 0D, 23 
249 DATA ED, 78,F2,E1,A3, 42,29, F2,21,4F, AG, ED, 78,FE, CD, 38 
259 DATA F4, BC, ED, 78, 77, D, 23, 3E, 05, 30, 29, FD, ED, 78,3, 29 
269 DATA EA, 34,58, A4, E6, 04,Cp, 37,CQ, ED, 78, F2, DA, A4, CO, Di 
278 DATA 7E,FB,F5, ED, 78,67, 39,FB, 87, 39,92, F1,C9,F1,0C,ED 
269 DATA 79,00, 3E, 05, 30,99, 28,FC,C9,C5, 06, F5, ED, 78, 1F, 38 
299 DATA FB,ED,78,1F,30,FB,C1,1ÿ,F9,CÜ, 43, 0F,08,00,91,08 
349 DATA 92,4A,40,09,4C,00,08,00,01,03,05, 2A,FF, 00, 80,00 
349 DATA BE, CB, ED, 49, BE, 99, ED, 49, 99, 21,88, BE, 1,98, 17,91 
354 DATA 09, 09, ED, B9, C3, 09, 46 


ASTERIX+.BAS 


1# CALL &BB4E:BORDER B:INK 8,8:INK 1,26:M0DE 2:PRINT'"Load 
er Asterix and the magic cauldron version originale pour 
cpet *# T& du GPA*:PRINT:PRINT'Encore un (tres) vieux soft 
, dont le loader plantait sur cpct..." 


28 PRINT"Ce loader tourne avec la version anglaise du jeu » 


, co-editee par Melbourne"; :PRINT'house et Chip (loader s 
ous CPM).":FOR i=4BE88 TO LBEGE:READ a$:POKE i, VAL("&"+a$ 
):NEXT:DATA F3,21,09,A9,11,90,91,91,99,92,ED,B9,C3,99,81 


LU 
3 


68 FOR i=&Aÿ59 TO &ALSF:READ a$:POKE i, VAL("&"+a$) :NEXT:P 
RINT:PRINT"Inserez l'original de Asterix and the nagic ca 
uldron dans votre lecteur puis appuyez sur une touche. 
":CALL &BBI8:CALL &BESP:DATA DE,FF,21,8A,91,CD,16,BD,57,1 
E,99,DF,9F,91,C9,45 

88 DATA C,97,CD,5F,91,CD,1B,91,C3,6B,91,CD, DB, C9, CD, 71 
99 DATA C9,81,7E,FB,3E, 46, CD, 88, C9, AF, CD, 88, C9, 34, 77,81 
189 DATA CD, 88,C9,AF, CD, 88, C9, AF, CD, 88, C9, 3E, 95, CD, 88, C9 
119 DATA AF,CD,88,C9,3E, 11,CD,88,C9,3E,FF,F3,CD, 88, C9, FD 
129 DATA E5,E1,CD,EC,C6,FB,ES,FD,E1,CD,5F,91,C3,4A,C9,C5 
139 DATA 9E,97,CD,9F,B9,ED, 43, 75,91,C1,C9,C5, ED, 4B, 75,81 
149 DATA CD,18,B9,C1,C9, 99,09, 04, C5, 34, 77,01,CD,98,91,CD 
159 DATA 12,81,21,77,91,34,C1,19,EF,C9,8E, 97, CD, CE, BC, AF 
169 DATA CD,BE,BC,91,99,99,CD, 38,BC,21,D1,91,AF,4E,23,E5 
179 DATA F5,41,CD,32,BC,F1,E1,3C,FE, 19,29,F1,06,84,FD, 21 
189 DATA 99,C9,CD, 78,91, FD, 21,09, 9A,96,9A,CD, 78,91,3E, 12 
199 DATA CD,Et,91,91,7E,FA,AF,ED, 79,9E,FF, 21,89, A, CD, 6 
289 DATA BD, 69, 14,93, 14, 8A,0E, 92, 19,18,0F,19,9C, 13,15, 99 
219 DATA 96,CD,98,91,11,49,99,96,19,C5,D5,CD,5F,81,CD, 21 
229 DATA 92,CD,6B,91,D1,21,4F,BE,91,04,99,ED,B8,C1,19,F9 
239 DATA 21,49,90,06,19,11,94,99,7E,FE,6F, 28, BB, 19,19,F8 
249 DATA 21,89,99,8E,09,CD, 16,BD,96,94,BE, 29,F3,23,18,FA 
258 DATA C9,CD,D8,C9,CD, 71,09, 91, 7E, FB, 3E, 4A, CD, 88, C9, AF 
269 DATA CD,88,C9,C3,4A,C9, 09, 09,09,09,00,00,09,00,08,00 


BARBARE+.BAS 


19 CALL &BB4E:BORDER #:INK 9,8:INK 1,26:MODE 2:PRINT"Load 
er Barbarian (Palace software) version originale pour cpc 
+ # TkJ du GPA":PRINT:PRINT'Chargenent de quelle partie ? 
:PRINT:PRINT"({) BARBLA.BIN":PRINT"(2) BARBIB.BIN":PRIN 
T"<3> BARB2A.BIN" 
48 PRINT"C4> BARB2B.BIN":a$(1)="BARBIA":a$(2)="BARBIB":a$ 
(3)="BARB2A":a$(4)="BARB2B":k$= "M2 VHILE k$<"{"OR ko" 4"ek 
$=INKEYS:MEND:k=VAL(K$) :PRINT: PRINT" Inserez votre origina 
l de Barbarian et appuyez sur une touche.":CALL &BB18:0PE 
NOUT'"d":MEMORY &IFFF 
78 CLOSEOUT:LOAD a$(k),82900:FOR i=kA799 TO &A7GG:READ a$ 
:POKE i, VAL("&"+a$):NEXT:POKE &A7GF, PEEK(&BCSE):POKE &A7I 
ÿ,PEEK(&BCOF) :POKE &A711,PEEK(&BC19) :POKE &BCSE, 195 : POKE 
&BCSF, 1:POKE &BC19,167:1F k=3 THEN POKE &A732,82:POKE &A7 
16,61 


D 119 1F k=1 OR k=2 THEN POKE 4A732, 188:POKE LA733, 130:POKE 
D 44716,167:POKE &A717, 129 

D 129 CALL LA729:DATA 08,F5,34, 89, A7, 3C, 32, 09, A7,FE,92,CA, 1 5MX 
h 147,F1,09 


149 DATA 09,89,21,39,A7,11,C4,82,91,36,94, ED, B8,C3,9E, A7 


168 DATA 89,21,D9,83,891,8E, F4, ED, 49,91,C4, F6, ED, 49,0E, 68 
179 DATA ED, 49,94,3E,02,ED, 79,99,CB,F1,96,F6, 09, ED, 49,6 
189 DATA F4, ED, 78,2F, 77,00, 23,79,FE, dA,29,EE,00,11,0A, 09 


D 195 DATA AF,91,92,F4,C9, 09,09 


)TF 


)YG 
>YQ 
DAZ 
)AL 
>AG 
>£M 
)YQ 
>ZR 
)ZU 
)ZU 
YK 
»2D 
)XZ 
>YL 
)YL 
>XA 
JYU 
)AA 
)XY 


Du 


>FG 


)YH 


I 158 DATA 21,99,29,11,48,09,91,00,91,ED,B9,C3,49,09,09,08 DXK 


YA 
>ZU 
)ZB 
>VH 


BIGGLES+.BAS 


18 CALL &BB4E:BORDER B:INK @,8:INK 1,26:MO0DE 2:PRINT"Load 
er Biggles (Mirrorsoft) version originale * Compatible cp 
ct * T&J du GPA":PRINT:PRINT'Je sais, Biggles est vraimen 
t un jeu ancien, mais il n'est pas trop sal, surtoutla 2e 
ne partie, alors..." 


49 FOR i=UBE8ÿ TO BBEGE:READ a$:POKE i, VAL("&"+a$):NEXT:D > 


ATA F3,21,99,A8,11,90,91,91,00,92,ED,B4,C3,99,01 


69 FOR i=&A9B9 TO RALFF:READ a$:POKE i, VAL("&"+a$):NEXT:P | 


RINT:PRINT"Inserez l'original de Biggles dans votre lecte 
ur puis appuyez sur une touche.":CALL &BB18:CALL &BE8Q:DA 
TA 21,98,81,9E,FF,CD,16,BD,3E,91,CD,8E,BC,81,89,09 

89 DATA CD,38,BRC,AF,21,71,91,4E,23,41,E5,F5,CD,32,BC;F1 
9ÿ DATA Ei,3C,FE, 94,29,F1,21,75,91,7E,23,FE,FF, 28,05, CD 
199 DATA 5A,BB,18,F5,CD,99,BB, CD, 96,BB,FE,31,9E, 99,28, 96 
119 DATA FE,32,9E,FF,29,EE, 79,32,09,09,AF,F5,91,99,99,CD 
129 DATA 32,BC,F1,3C,FE, 19,29,F3,21,99,92,11,89,BE,01,98 
139 DATA 81,ED,B9,21,FF,B9,11,49,98,9E,97,CD,CE, BC, C3,89 
149 DATA BE, 98,86, 1A,0E,1F,0F,93,9F,91,4D,49,52,52,4F,52 
159 DATA 53,4F,46,54,1F,19,95,9F,92,59, 72,65, 73,65,6E, 74 
168 DATA 73,1F,19,98,8F,93,42,49,47,47,4C,45,53,1F, 99, QC 
179 DATA 8F,92,31,29,2D,29,54,49,4D,45,57,41,52,59,1F,49 
189 DATA BE, 32,29, 2D,29,54, 48, 45,29,53,45,43,52,45,54,2ÿ 
199 DATA 57,45,41,59,4F,4E,1F, QD, 12,0F,93,53,45,4C, 45,43 
299 DATA 54,29,31,29,4F,52,29,32, 1F,98,17,0F,92,28,43,29 
219 DATA 29,31,39, 38,36, 28, 4D, 49,52,52,4F,52,53,4F, 46,54 
228 DATA 29,4C,54,44,FF,99,00,00,00,00,00,00,99,00,90,08 
238 DATA CD,57,BF,3A,99,99,B7,28,11,FD,21,99,91,96,8B,CD 
24ÿ DATA 65,BF,21,98,81,8E,FF,CD, 16, BD, SE, 1D, 32,52, BF, FD 
258 DATA 21,89,49,96,03,CD,65,BF,CD, 48, 49,FD, 21,99, DA,86 
258 DATA 88,CD,65,BF,CD,C8,BC, C3, 59, 32, DF,53,BF,C9, CD, 29 
279 DATA BF,CD,C8,BE,CD,2C,BF,C9,CD, D8,C9, CD, 71,C9, CD, 2 
289 DATA BF,81,7E,FB,3E, 46, CD, 36,BF,AF,CD,36,BF, 3A,52,BF 
298 DATA CD,36,BF,AF,CD,36,BF,AF, CD, 36,BF,3E, 25, CD, 36,BF 
348 DATA AF,CD,36,BF,3E,11,CD,36,BF,3E,FF,F3,CD,36,BF, FD 
318 DATA ES,E1,CD, 16,BF,FE,ES,FD,E1,CD, 29, BF, CD, 4A,C9,C9 
328 DATA QC, ED, 78,77, 0D,23, ED, 78,F2,16,BF,E6,29,28,F1,C9 
338 DATA C5,8E,97,CD,9F,B9,ED, 43,59,BF,C1,C9,C5,ED, 4B,59 
349 DATA BF,CD,18,B9,C1,C9,F5,F5,ED, 78,87,39,FB,87,59,93 
359 DATA F1,F1,C9,F1,9C,ED, 79, 9D,3E, 95, 3D, 98, 29,FC,F1,C9 
368 DATA 98,00,12,89,90,89,87,21,56,BF,CD,D4,BC,22,53,BF 
374 DATA 70,32,55,BF,C0, C5, 34, 62,BF,67,1F,08,CD, BA, BE, CD 
389 DATA BE,BE,21,52,BF, 34,C1,19,EC,C9, 28,43,29,54, 4D, 48 


BLUEWAR+.BAS 


18 BORDER Z:INK 9,8:INK 1,26: MODE 2:PRINT"Loader Blue war 

(Free game blot) version originale pour cpe+ * T4J u GPA 
":PRINT:PRINT'Inserez votre disquette originale et appuye 
z sur une touche...":CALL &BBIB:RANDOMIZE TIME 


V7 


BN 


YV 
DYV 
)ZU 
>Y2 
NY 
)2Q 
)YD 
>VB 
>YM 
»XQ 
XD 
»YB 
>XK 
DXT 
UD 
»>YP 
>2] 
»YG 
>AF 
>BU 
> AU 
>AG 
>AD 
>AB 
>2L 
>ZR 
IV 
>2G 
)YR 
»22 
>ZP 


>NR 


68 MODE S:WINDOW#1,1,49,1,24:CLS#1:FOR 1=9 TO 15:INK 1,4: 
NEXT I:BORDER S:GOSUB 288:RESTORE 68:INK 9,9:INK 1,6: INK 
2,15:INK 3,24:INK 4,25:INK 5,26:INK 6,8:INK 9,6:INK 19,1: 
ENK 11,7:INK 12,4:INK 13,2: INK 14,15:INK 15,2:BORDER 9:F0 
R 1=1 TO 29BD:NEXT ! 
128 FOR IP={ TO 5:GOSUB 168:1NK 13,7:G0SUB 169: INK 13,8:G 
OSUB 169:1INK 13,9:GOSUB 169:INK 13,11:G0SUB 168:INK 13,17 
:NEXT IP:GOSUB 22ÿ:RUN"!TELEX" 
169 READ 1,J:SOUND 2,1,Jx2, 14:SOUND 1,9,1,9:RETURN: DATA" 3 
19,28,239, 19,319,8, 239,8, 199,35, 239, 35, 199, 19, 239,8, 199,8 
, 159,39, 199,39, 159,19, 199,8, 159,8, 127,39, 253, 39, 199, 19, 25 
3,8,199,6,159,58,9,1,219, 19,199, 19,239,8, 199,8, 159,389,213 
, 38 
228 SPEED INK 2,2:BORDER 6,2:INK 8,6,2:1INK 6,6,2:FÛR 1=15 
TO 9 STEP-1:SOUND 5,48,55,1,,,31:NEXT l':BORDER B:INK 8,9 
: INK 6,8:RETURN 
288 RESTORE 298 
298 MEMORY &77FF:FOR i=1 TO 219:READ a$:POKE k788ÿ+i, VAL( 
"&"+a$):NEXT:LOAD"pro.b",&78FD:POKE &7BFE,PEEK(R7G8FE) +84: 
CALL &7898:DATA 3a,ff,76,11,98,78, dd, 21,99, 79,cd,47, 78,01 
19,49, fd, 2a,fd, 78,fd,6e,99,fd,66,91,a7,ed,52,20, a, fd,6e 
,93,fd, 7e,92 
329 DATA 12,13,8b,2d,28, fa, fd, 23, fd,23, fd,23,fd,23,78, bi, 
29, dd,18,8c, dd, 7e,94,12,13, dd, 23,8b,78,b1,289,cf,c9 
338 DATA F5,C5,D5,E5,DD,E5,FD,E5,9E,97,CD,9F,B9,C5,CD, 98, 
B9, {E,99,16,27,CD,92,C7,91,7E,FB,3E,42,CD, 88, C9,3E, #9, CD, 
88,C9,3E,27,CD,88,C9,3E, 99, CD, 88,C9,3E, 41,CD,88,C9,8E, 93, 
CD,88,C9,3E,41,CD,88,C9,3E,11,CD,C2,CA, CD, 88,C9,3E,FF,CD, 
B1,78,FB,CD, 4A,C9 
348 DATA 21,D3,78,3E,F7,BE, 29,b7,C1,CD,9F,B9,CD,93,B9, FD, 
E1,DD,E1,E1,D1,C1,99,16,c9,F1,C9,CD,88,C9,81,7E,FB,11,87, 
92,21,D3,78,18,8A,7A,B3, 28,06, 0C, ED, 78, 77,9D,1B,ED, 78,F2, 
C9, 78,E6,29, 29,ED,C9 
358 RETURN 


CHEVAL+.BAS 


18 CALL &BB4E:BORDER S:INK 9,8:INK 1,26:MODE 2:PRINT"Load 
er Bob aorane chevalerie version cpc+ x T&J du GPA":PRINT 
:PRINT"Introduisez votre original dans le lecteur puis ap 
puyez sur une touche...":CALL BBBI8:PRINT:PRINT'Patience. 
..":FOR i=&A999 TO &A21F 

49 READ a$:POKE i,VAL("&"+a$):NEXT:FOR 1=4A399 TO &A348:R 
EAD AS$:POKE 1, VAL("&"+A$):NEXT:POKE &A9BD,4:POKE &APBE, 16 
S:POKE #,247:CALL LADBG:DATA 31,88, C0,CD, 82, A1, 3A,09,80,F 
E,F7,C2,89B,A9,91,E8 

98 DATA FE, ED, 49,21, 1C,A1,22,39,88,FB,CD, 8F, A9, CD, DC, AG 
199 DATA 16,1E,96,29,21,08,C9,CD,8B, A1, CD, AG, A9, 21,99,91 
119 DATA 91,89,F5,ED, 78,1F,39,FB, ED, 76, 1F,38,FB,28B,7C,B5 
128 DATA 29,F1,CD,8F, Aÿ,91,96, BC, ED, 49,84,8E, 15, ED, 49,16 
139 DATA 92,86,29,21,99,C9, CD, 8B, A1, CD, A5, A8, CD, DC, A8, 16 
149 DATA 9A,96,29,21,FD,99,CD,8B,A1,16,8E, 86, 29,21, FD, 49 
159 DATA CD,8B,A1,16, 12,96, D, 21,99,81,CD, BB, A1,CD,56, At 
169 DATA AF,32,5F,BE,91,7E,FA,ED, 79,CD,82,A1,C3,99,81,01 
179 DATA 19,7F,3E, 54, ED, 49, ED, 79, 8D, 29, F9, ED, 49, ED, 79, C9 


DUJ 


>2D 


Y 


VX 


VV 


AY 


JYV 
)YH 
)ZL 
>2K 
ZE 
»YC 
NB 
>ZH 
>ZL 


188 DATA 21,DB, A9, 18,93, 21,CA, A,01, 19, 7F,ED, 49, 7E, ED, 79 
199 DATA 28B,8D,29,F7, ED, 49, 7E, ED, 79, C9,49,54,54,56, 48, 46 
280 DATA 46,5E,4E,46,5B,5B,4E, 4A, 4C, 50,54, 54, 43, 4E, 54,54 
219 DATA LE, 4A, 49,5C,55, 49,56, 4E, 47,4C,54,54,91,84,7F, ED 
228 DATA 49,91,07,DF,ED, 49,21, A9, CA, 11,90, A8, 81, 19, 99, ED 
230 DATA B9, 21,08, A1,11,E9,8C, 01,96, 09, ED, B9,3E,FF, 32, 78 
249 DATA BE, CO,91,8C,7F, ED, 49,C9, C3, DE, A1,C3, 16, A1, ED,53 
259 DATA 54,A1,3E, 81,18, 92, 3E, 99, 32,53, A1,C9,D9,F5, 21,52 
269 DATA A1,35,28,05,F1,09,FB, ED, 40, 36,06, 34, 53, A1, A7, 28 
279 DATA LC, 24,54, A1,2B, 22,54, A1, 7C,B5, 29,11, 32,53, A1, 21 
289 DATA 5F, BE, 7E, 2F, 77,87,28,85,91,7E, FA, ED, 79,F1,D0,FB 
290 DATA ED, 4D,80,09,00,00, 11,09, 28,3E,66, 32, 18, A2, 3E, 0 
389 DATA 32, 19,42, 21,08,B1,E5,0E,35,CD,B6,A1,E1,91,6F,09 
319 DATA 89,5E, 21,49, 00,96, 80, 4B, 7B, A6, 77,23, 0D,28,F9, 14 
329 DATA F7, AF,32,5F,BE, 01, 7E, FA, ED, 79, C0, 1E, 60,8, 41,3E 
339 DATA 92, 32, 19, A2, 3E, 66, 32, 16, A2,C5,D5,E5, CD, BG, A1, El 
349 DATA 24,24,Dt,C1,8C,79,E6,0F,FE, 9, 20,07, 79,E6,FD,F6 
358 DATA #1,4F,14,19,E4, CO, CD, DB, CO, 34, 18, A2, 06, 19, 22, 62 
369 DATA BE, 67,60, 22, 74,BE, 48, 21, CD, A1, C3, 29, C7, 2A, 74,BE 
379 DATA #1,7E,FB, 7C, CD, 88, CO, 7B, CD, 86, C9, 7A, CD,88,C9,AF 
389 DATA CD, 88,C9, 7D, CD, 88, C9, 3, 19, A2, CD, 88, C9, 7D, CD, 88 
399 DATA C9,3E,11,CD,85, C9, 3E, FF, CD, 98, A2, FB, CD, 35,C9, DB 
488 DATA CO, 34, 4D,BE, 87,D8, AF, C9, F3, CD, 88, C9, 7C, 24,62, BE 
419 DATA FE, 4B, DA, FC, C6,C3, EC, C6, 66,01, 09,00,06,08,08,00 
439 DATA 21, A9,CA, 22,90, 81, 3E, 8, 32, 37,82, 21, 29, C7, 22, 4B 
à49 DATA 92, 3E, 88, 32,55, 82, 32,59, 92, 32, 5D, 92, 32,61, 92, 32 
459 DATA 65, 92, 32,68, 92, 32, 6F, 02, 3E, 85, 32, 74, 82, 3E, 35, 32 
269 DATA 70,82, 3E, 88, 32, 84, 92, 3E, FC, 32, 93, 02, 3E, EC, 32, 96 
479 DATA 92,3E, F7, 32,00,00,C3,90,01 


FMD+.BAS 


18 CALL &BB4E:BORDER 8:INK 9,B:INK 1,26:M0ODE 2:PRINT"Load 
er Fernandez must die (Imagework) version originale pour 
cpot + T&J du GPA":PRINT:FOR i=&BE8f TO LBESE:READ a$:POK 
E i,VAL("&"+a$):NEXT:DATA F3,21,99, AD,11,90,91,91,98,02,E 
D,B9,C3, 94,91 

58 FOR i=&AÿBD TO RAL7F:READ a$:POKE i, VAL("&"+a$) :NEXT:P 
RINT:PRINT'Inserez l'original de Fernandez nust die dans 
votre lecteur puis appuyez sur unetouche, SVP..,.":CALL & 
BBI8:CALL &BE8B:DATA F3,41,E8,FE,ED,49,3A,98,08,FE,F3,2 
F4,21,90,81 

79 DATA 11,98,A1,91,99,92,ED,B9,8E,FF,21,B1,A1,CD, 16,BD 
8 DATA 04,99, 14,06,14,98,09,02,18,9F,93,9C,0A, 17,13, 0B 
98 DATA 9D,57,1E,98,DF,38,A1,C9,45,C9,97,CD,D8,C9, CD, 71 
189 DATA C9,91,7E,FB,SE,46,CD,88,C9,AF, CD, 88, C9, 34,29,A1 
119 DATA CD,88,C9, AF,CD, 86, C9, AF, CD, BE, C9, 3E, 95, CD, 88, CQ 
124 DATA AF,CD,86,C9,3E,11,CD,88,C0,3E,FF,F3,CD,88,C9,FD 
139 DATA E5,Ei,CD,EC,C6,FB,ES,FD,E1,CD,9B, A1,C3,4A,C9,CD 
148 DATA OB,A1,CD,3B,A1,CD,A7,A1,21,29,A1,34,C0,C5, 34,28 
159 DATA A1,CD,31,A1,CD,7F,A1,C1,19,F3,C9,C5,9E,97,CD,4F 
164 DATA B9,ED, 43,99,BF,C1,C9,C5,ED, 4B,99,BF,CD,18,B9,C1 
178 DATA C9,8E,87,CD,CE, BC, 3E, 99, CD, DE, BC, 91, 98,98, CD, 38 
188 DATA BC,21,21,A1,AF,4E,23,E5,FS,41,CD, 32, BC,F1,E1, 3C 
198 DATA FE,19,29,F1,06,84,FD,21,00,C9,CD,8D,At,FD, 21,48 


>ZL 
> ZA 
YU 
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»2G 
)YV 
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LA 
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JU 
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289 DATA $1,06,4A,CD,8D,A1,3E,92,CD,0E, BC, 81,80,00, 3E,01 
219 DATA CD,32,BC,FD,21,99,C9, 86,91,CD, 8D, A1,3E, 13,CD,2F 
229 DATA A2,91,7E,FA,AF, ED, 79,CD,99,B9, CD, 83, BO, F3, 81, 8D 
259 DATA 7F,ED,49,21,21,A2,11,99,F9,01,99,01,ED,B9,C3,98 
249 DATA F9,21,49,C8,11,99,A1,91,7B,05,ED, B9,C3, 1,56, CD 
259 DATA 31,A1,11,92,BF,96,19,C5,D5,CD,9B, A1,CD,67, A2,CD 
269 DATA A7,A1,D1,21,4F,BE,91,94,99,ED, BD, C1,19,E9, 21,92 
2179 DATA BF,86,19,11,94,09,7E,FE,9F, 28,93, 19, 19,F8,96,04 
289 DATA BE, 29,EB,23,19,FA,C9,CD,D8,C9,CD,71,C9,41,7E,FB 
298 DATA SE, 4A, CD, 88,C9, AF, CD, 88, C9, C3, 4A, C9, 90, 08,99, 08 


GEEBEE+.BAS 


19 CALL &BB4E:BORDER B:INK 8,8:INK 1,26:MODE 2:PRINT"'Load MK 
er Geebee air rally (Activision) version originale pour c 
pet x T&J du GPA":PRINT 
38 PRINT'Eh be, ce jeu avait peu de chance de tourner sur AN 
cpct, il y avait à la fois un probleme de scanning clav 
ier, et un probleme de compatibilite de la ROM disk po 
ur le loader.":PRINT"Avec ce chargeur, tout rentre dans | 
l'ordre ! 
58 FOR i=4BE89 TO RBEBE:READ a$:POKE i,VAL("&"+a$):NEXT:D DUR 
ATA F3,21,99,A0,11,90,91,91,09,02,ED,B9,C3,09,01 
78 FOR i=LAÿOY TO RALGF:READ a$:POKE i, VAL("&"+a$):NEXT:P LG 
RINT:PRINT"Inserez l'original de Geebee air rally dans vo 
tre lecteur puis appuyez sur une touche.":CALL &BB{8:CAL 
L &BE8S:DATA F3,91,E8,FE, ED, 49, 3A,09,00,FE,F3,28,F4,9E,FF 
,21 
98 DATA 96,91,CD,16,BD,16,57,1E,89,DF,1D,91,C09,45,C9,97 
198 DATA CD,D8,C9,CD, 71,C9,91,7E,FB,3E, 46, CD, 88,C9, AF,CD 
119 DATA 88,C9,34,15,91,CD,BB,C9, AF,CD, 88,C9, AF,CD, 88,C9 
129 DATA SE,95,CD,88,C9,AF,CD,88,C9,3E, 11,CD,88,C9,3E,FF 
139 DATA F3,CD,88,C9,FD,E5,E1,CD,EC,C6,FB,E5,FD,E1,CD,88 
149 DATA 91,C3,4A,C9,CD,89,41,CD,29,91,CD,8C,91,21,15,01 
159 DATA 34,C9,C5,34,15,91,CD, 16,91,CD,64,91,C1,18,F3,C9 
169 DATA C5,9E,97,CD,9F,B9,ED, 43,98,BF,C1,C9,C5, ED, 4B, 08 
179 DATA BF,CD,18,B9,C1,C9,9E,97,CD,CE, BC, FD,21,C8, 94,06 
189 DATA 98,CD, 72,91,3E, 1E,CD, BD,91,91,7E, FA, AF, ED, 79,F3 
199 DATA 91,8D,7F,ED,49,21,C3,894,9E,FF,C3,29,02,CD, 16,91 
298 DATA 11,92,BF,96,19,C5,D5,CD,88,81,CD,F5,91,CD, 8C, 81 
219 DATA D1,21,4F,BE,91,94,09, ED, B9,C1, 19,E9,21,92,BF,96 
228 DATA 19,11,94,99,7E,FE,9F, 28,93,19,19,FB,06,04,BE, 29 
239 DATA EB,23,19,FA,C9,CD, D8, C9, CD, 79,C9,91,7E,FB,SE, 4A 
248 DATA CD,88,C9,AF,CD,88,C9,C3, 4A,C9, 98,09, 00, 09,09,09 
259 DATA #1,C9,F6,ED, 49,9E, 99, ED, 49,99, 00,09,00,00,08,08 
269 DATA 21,19,92,11,5C,11,91,99,98,ED,B9,21, 19,92, 11,EB 
219 DATA 11,81,99,99, ED, B9, 21,19, 92,11, FD, 12,91,99,98,ED 
289 DATA B9,21,C3,84,0E,FF,CD, 16,BD, C9, 99, 90,00,80,09,00 


GUADAL+.BAS 


18 CALL &BB4E:BORDER B:INK ,8:INK 1,26:MODE 2:PRINT"Load 
er Guadalcanal version originale pour cpet * T&J du GPA": 
PRINT:PRINT"Inserez votre original, et appuyez sur une to 


>XM 
)AU 
> AF 
> AW 
JAH 
)YD 
)YZ 
>ZG 
)ZC 
)ZR 
YC 
DYX 
JYU 
)YQ 
> AF 
YU 
XX 
>XU 
XX 
NT 


uche...":CALL &BB18:FOR i=89949 TO 8914F:READ a$:POKE 1, 
AL("k+a$) :NEXT 

58 FOR i=LBEG8ÿ TO &BEBE:READ a$:POKE i, VAL("&"+a$):NEXT:C 
ALL &BEB89:DATA F3,91,E8,FE,ED,49,3A,00,00,FE,F3,28,F4,BE, 
FF,21 

119 DATA 94,81,CD,16, BD, 98, 9D, 9D, 9D,9D,57,1£,99,DF,21,91 

128 DATA C9,45,C8,97,CD,D6,C9, CD, 71,C9,91,7E,FB, 3E, 6, CD 

139 DATA 88,C9,AF,CD,88,C9,34,15,81,CD, 88,C9, AF, CD, 88,C9 

149 DATA AF,CD,88,C9,3E,95,CD,88,C9,AF,CD,88,C9,3E, 11, CD 

159 DATA 88,C9,3E,FF,F3,CD,88,C9,FD,E5,Et,CD,EC,C6,FB,ES 

169 DATA FD,E1,CD,84,81,C3,4A,C9,CD,84,91,CD,24,81,CD,99 

179 DATA #1,21,15,91,34,C9,C5,3A,15,91,CD, 1A,91,CD,68,91 

189 DATA C1,19,F3,C9,C5,9E,97,CD,9F, B9, ED, 43,99,BF,C1,C9 

199 DATA C5,ED,4B,99,BF,CD, 18,B9,C1,C9,9E,97,CD,CE, BC, 3E 

298 DATA 91,CD,9E,BC,91,9D,@D,CD,38,BC,21,16,91,AF,4E,23 

219 DATA E5,F5,41,CD,32,BC,F1,E1,3C,FE, 19,29,F1,96,91,FD 

229 DATA 21,49,93,CD, 76,81,21,90,93,11,7C,9E,91,89,98, ED 

239 DATA B9,CD,58,A1,FD, 21, AŸ,9F,96,99, CD, 76,91,3E, 12,CD 

249 DATA 81,92,3E,95,CD,1A,81,21,FC,AB,11,49,99,9E, 07, CD 

259 DATA CE, BC, 81, 7E, FA, AF, ED, 79,CD,99, 89, CD, 93, B9, C3, 88 

268 DATA 3E, CD, 1A,91,11,92,BF,96,19,C5,D5,CD, 84,891, CD, 39 

219 DATA 82,CD,99,91,D1,21,4F,BE,01,94,09,ED,B4,C1,19,E9 

288 DATA 21,82,BF,96,19,11,94,09,7E,FE,0F,28,93,19,19,F8 

299 DATA 66,84,BE,29,EB, 23, 19,FA,C9,CD,D8,C9,CD,71,C9,g1 

398 DATA 7E,FB,3E, 4A,CD,88,C9,AF,CD,88,C9,C3,4A,C9, 89,08 

319 DATA F3,21,09,99,11,99,01,91,50,91,ED,B9,C3,98,01 


HARRIER+.BAS 


ig CALL &BB4E:BORDER D:1NK 9,9:INK 1,26:M0DE 2:PRINT'"Load 
er Strike harrier force version originale pour cpct+ *x TkJ 
du GPA*:PRINT:PRINT"Ca aurait ete dommage de priver les 
possesseurs de + de ce bon similateur de volcree par Mirr 
orsoft." 
49 FOR i=&BE89 TO &BEBE:READ a$:POKE i, VAL ("&"+a$) :NEXT:D 
ATA F3,21,99,A0,11,00,01,01,09,02,ED,B9,C3,09,91 
68 FOR i=4Aÿ99 TO KALFF:READ a$:POKE i, VAL("k"+#a$):NEXT:P 
RINT:PRINT"Inserez l'original de Strike harrier force dan 
s votre lecteur puis appuyez sur une touche.":CALL &BB18 
:CALL &BEB89:DATA DE,FF,21, A2,81,CD, 16,BD,57,1E,98, DF,8F, 0 
1,09, 45 
88 DATA CB,87,CD,5F,91,CD,1B,81,C3,6B,91,CD,DB,C9,CD, 71 
9ÿ DATA C9,81,7E,FB,3E,46, CD, 88, C9, AF,CD,88,C0, 34, 77,41 
14 DATA CD, 88, C0, AF,CD, 88, Cû, AF, CD, 88, C9, 3E, ÿ5,CD, 88, C9 
119 DATA AF,CD,86,C9,3E,11,CD,88,C9,3E,FF,F3, CD, 88,C9, FD 
129 DATA E5,E1,CD,EC,C6,FB,E5,FD,E1,CD,5F,91,C3,4A,C9,C5 
139 DATA DE,97,CD,9F,B9,ED, 43,75,91,C1,C9,C5, ED, 4B, 75,91 
149 DATA CD,18,B9,C1,C9,99,99,99,C5,3A, 77,91,CD,98,91,CD 
159 DATA 12,91,21,77,91,34,C1,19,EF,C9,AF,F5,91,89,99, CD 
169 DATA 32,BC,F1,3C,FE, 19,29,F3,81,09,96,CD,38,BC,CD, 19 
179 DATA BD,C9, #E, 47, Ci, CE, AC, CD, BA, 41, FD, 21,49, Cb,3E, Ba 
189 DATA 32,77,81,47,CD,78,41,21,9A,02, AF,4E,23,E5,F5,41 
199 DATA CD,32,BC,F1,E1,3C,FE,94,29,F1,91, LA, 1A, CD, 38, BC 
289 DATA FD,21,08,9A, 96,98, CD, 78,91,CD, 8A,91, AF,CD, DE, BC 
219 DATA FD,21,99,C9,96,94,CD, 78,91,3E,14,CD,1E, 92, AF,21 


VV 


WH 


YU 
10 
>AH 
)AJ 
AZ 
)22 
>YZ 
)ZV 
AL 
>ZP 
)ZK 
>XY 
1] 
>YH 
DAE 
)YG 
)YA 
»YX 
)ZE 
>ZF 
JUL 


v 


HZ 


)YG 
ŸQ 
DAZ 
>AL 
AG 
)ZM 
)YL 
)YR 
)2h 
2h 
)YD 
)ZP 
DIT 
)YC 


228 DATA BE, 92,46,48,23,E5,F5,CD,32,BC,F1,E1,3C,FE, 19,28 
238 DATA F1,91,7E,FA,AF,ED, 79,C3,989,38,14,06,18,02,05,13 
249 DATA 66, 96,09,00,00,09,0A,0A, 1A,09, 90,99, 1A,08,CD, 98 
258 DATA 61,11,49,99,96,19,C5,D5,CD,5F,891,CD,5E, 82, CD, 68 
269 DATA B1,D1,21,4F,BE,91,94,99,ED,B9,C1,19,E9,21,49,99 
279 DATA 86,19,11,94,98,7E,FE,9F,28,8B,19,19,F6,21,99,00 
288 DATA BE,89,CD,16,BD, 96, 94,BE, 29,F3,23,1ÿ,FA,C9,CD, DB 
299 DATA C9,CD,71,C9,91,7E,FB,3E, 4A, CD, 88, C9, AF, CD, 88, C9 
399 DATA C3,44,C9,29, 29,29, 29, 29,29, 29, 29,29, 28,29, 29,28 


, , 
319 DATA 29,29,29,20,29,29,29,28,29, 29,29, 29,29, 29,29,28 
329 DATA 29,29,29,29,29,29,29, 20, 20,29, 29,29, 28,29, 28,28 
339 DATA 29,29,29,29, 20,29, 29, 29,29, 28, 29,20, 29, 20,29, 29 
349 DATA 29,29,29,29,29,29,29, 29,20,29,20,29,28,29, 28,28 
358 DATA 29,29,29,29, 29,29, 29,29, 29, 29,28,29,29,29,29,2ÿ 
369 DATA 29,29,29,29,29,20,29,29, 20,29, 29,29, 28,28, 29,28 
378 DATA 29,29,29,29,29,20,29,29,29,29,28,29,29,29,29,20 
389 DATA 29,29,29,29, 29,29, 20,29, 2ÿ,29,20,29,28,2E,2E,2E 


MANSELL+.BAS 


14 CALL &BB4E:BORDER 8:INK 9,8:INK {,26:MODE 2:PRINT'"Load 
er Nigel Mansell's grand prix (Martech) compatible cpct * 
T&J du GPA":FOR i=&BE89 TO &RECB:READ a$:POKE i, VALI"&"+ 
a$):NEXT:DATA 81,C8,F6,ED, 49,8E,89,C9,F3,C3, 7D, A6,99,09,9 
9,09 
58 DATA 3E,CD, 32, 7B,5D,32,77,8C,3E, 96,32, 7C, 5D, 32, 78, 8C 
69 DATA 3E, A8, 32, 7D, 5D, 32, 79,8C, 21,89,BE, 11,98, A8,91,88 
78 DATA 9B,ED,B8,21,C1,BE,11,77,8C,91,98,99,ED,B9,C53,99 
88 DATA 68,91,89E,F4,ED,49,CD,98, A8 
98 FOR i=&A7F4 TO RABAF:READ a$:POKE i, VAL("&"+a$):NEXT:P 
OKE &A9YC, 144:POKE KAOBD, 199: INK 1,24:INK 2,2: INK 3,26:PR 
INT:PRINT"Inserez votre original puis appuyez sur une tou 
che.":CALL &BB18:MODE 1:CALL &BEG8 
129 DATA C9,99,89,1A,C5,86,F5,ED, 78,1F,38,FB,ED, 78, 1F,38 
139 DATA 42,55,47,7E,4F,46,46,3B,38B, DD, 26, AG, DD, 2E, 2E, DD 
149 DATA E3,81,2E,89, DD, 99, DD, 5D, DD,54,6B,62,91,AC,92,ED 
159 DATA 57,E4,99,BF,ED,5F, AE, 77, ED, AG,E8,3B,3B,EB,C9,C9 
169 DATA C9,C9,C9,C9,C9,C9,C9,C9,C9,C9,C9,C9,C9,C9,C9,C8 
179 DATA C9,C9,C9,C9,C9,C9,C9,C9,C9,C9,C9,C9,C9,C9,C9,C9 
189 DATA C9,C9,C9,C9,C9,C9, C9, C9, C9, C9, C9,C9,C9,C9,C9,C9 
199 DATA C9,C9,C9,C9,C9,C9,C9,C9,C9,C9,C9,A7,ED,52,88,21 
288 DATA 2E, A6,06,3D,36,C9, 23, 19,FB,98, 99,99, 98,AF,ED,4F 
218 DATA 88,91,E8,FE, ED, 49,3A,99,99,FE,F3,CA,3A, A9, CD, 76 
229 DATA A9,81,7E,FA,3E,91,ED, 79,96, 9A, CD, 83, AA,21, 49,08 
239 DATA 16,91,9E,82,CD, C6, A9,98,08,09,21,49,09,7E,91,00 
248 DATA 82,ED,A1,99,09,09,EA,B1,A8,FE, A7,90,00,90,21,4ÿ 
259 DATA 09,16,81,0E, 79,CD,C6, A9,08,00,99,CD,E, A9,21,08 
268 DATA C9,86,93,16,0E,9E, 45,CD,9F, A9, CD, 11, A9,21, 49,98 
278 DATA 96,99,16,94,0E,49,CD,9E, A9,CD,63,A9,81,7E,FA, AF 
289 DATA ED, 79,21,99,A9,11,99,BF,91,9E, 00, ED, B9,C3,98,BF 
298 DATA 21,FF,A!,11,FF,AB,91,99, A2, ED,B8,C3,89,66,AF, 18 
399 DATA 82,3E,28,81,91,BC, ED, 49,94,ED, 79,C9,3E,91,CD,9E 
319 DATA BC,3E,91,CD,99,BB,3E,91,96, LA, 48,CD, 32, BC, 21, AF 
329 DATA AA, CD, 54, A9,F3,96,09,CD,83, AA, 21,98,88,11,01,08 
339 DATA AF,77,91,3A, A9,ED,B9,21,5A,A9,11,5B, A8, AF, 77,01 
349 DATA A5,56,ED,B9,D9,CB,D1,ED, 49,C7, 7E,B7,C8,CD, 5A.BB 
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359 DATA 23,18,F7,21,49,90,11,00,A2,9E,E5, AE, 77,23, 18, 7A 
364 DATA B3,3E,E5, 29, F6,C9,F3,D9, CB, 91, ED, 49, D9, 21,98, 96 
378 DATA 3E, 44, BE, 28,93, 23, 18,FA, 23, 23,23,5E, 23,56,EB, 22 
389 DATA 93, A9, CD, BD, 86, D9, CB, D, CB, D9, ED, 49,D9, C9, C5, D5 
399 DATA ES, dE, 49, CD, B4, A9,E1,91,99,12,89,D1,C1,14,19,EE 
49 DATA F3, 74, 32,97, AA, 32, AD, AA, 22, F4, A9, 3E, 41,32, A2, AA 
419 DATA 79,32, A4, AA, 18, 12,F3, 7A, 32,97, AA, 32, AD, AA, 22, F4 
429 DATA A9, 79,32, A2, AA, 32, A4, AA, 11,94, AA, CD, 18, AA, SA, A7 
439 DATA AA,B7, 29,Fa, 11,94, AA,CD, FA, A9, 11,94, AA, CD, 19, AA 
&aÿ DATA 11,9D, AA, 21,49, 36, CD, 18, AA,C9, CD, 9B, AA, 11,98, AA 
459 DATA CD, 18, AA, 21, A7, AA, CB,6E, 28,F3,C9,91,63, AA, 18, 0B 
469 DATA #1,45, AA, 21, A7, AA, 18,93,91,3A, AA, ED, 43,32, AA, LA 
479 DATA 47,13,C5,tA,13,CD,69, AA,C1,19,F7,91,7E,FB,11,19 
488 DATA 28,C3, 3A, AA, 8C, ED, 78, 77, 9D, 23, ED, 78,F2,3A, AA, A2 
499 DATA 29, F2, 21,A7, AA, ED, 78,FE, CO, 38, FA, 0C, ED, 78, 77, 0D 
589 DATA 23,3E, 15, 3D, 29, FD, ED, 78, A3, 29, EA, SA, AB, AA, EG, 94 
514 DATA C9, 37, C9, ED, 78,F2,63, AA, C9, 81, 7E,FB, F5, ED, 78,87 
529 DATA 39,FB,87,39,92,F1,C9,F1,9C,ED, 79,9D,3E,45, 30,98 
539 DATA 29,FC,C9,C5,96,F5,ED, 78,1F,38,FB, ED, 78,1F,39,FB 
54ÿ DATA C1,19,F0,C0,93,0F,49,97,01,08,02,44,00,09,4C,08 
55ÿ DATA 97,90,41,92,49,2A,FF,09,00,90,07,00,41,02,00,2A 
569 DATA 24, 2A, 24, 29,54, 48, 49,53, 29,44, 49,53, 43,28, 49,53 
579 DATA 29,41, 4E,29, 49, aC,4C,45,47,41,4C, 20,43, 4F,59, 59 
584 DATA 21,21, 29, 24, 2A, 2A, 2A,06,88,94, 29, 29,53,58,45,45 
594 DATA 44, 4C, 4F,43, 4B, 29, 2D, 29, 41,40, 4C, 29,52, 49, 47,48 
689 DATA 54,53,29,52,45,53,45,52, 56,45, 44,21,D5,3F, 46, 18 
619 DATA AF,C5,F5,46,48,23,E5,CD, 32,BC,E1,F1,3C,C1,19,F1 
629 DATA 7E,E5,CD,8E, BC, Et, 23,56, 23,5E, EB, 22,08, RF, 06,00 
634 DATA 0E, 09, CD, 36, BC, 3E, 01, CD, 99, BB, C9, 80, 18,02, 14,08 
649 DATA 89, 90,90, 00,09, 00, 00,09, 09,00,00,91,C9,98,08,1A 
654 DATA C5,06,F5,ED, 78, 1F,38,FB, ED, 78,1F,30,FB,C1,19,F9 
668 DATA C9,83,8F, 00,09, 01,08, 02, 4A, 98,99, 4C,08,08,00,à1 
679 DATA 92,49, 2A,FF,09,00,00,90,00,00,08,00,2A, 2A, 2A, 2A 
689 DATA 28,54,48, 49,53, 29, 44, 49,53, 43, 29,49,53,28,41,4E 
699 DATA 29,49,4C,4C,45,47,41,4C, 29,43, 4F, 59,59, 21,21, 29 
709 DATA 24, 24, 24, 2A,80,88,94, 1A, 29,44, 45,46, 42,28, 39, 0D 
719 DATA 31,39, 29,43,59,58,48,45,52, 20,44, 45,46, 42, 20,31 


RAIDER2+.BAS 


18 CALL &BB4E:BRORDER B:INK 9,8:INK 1,26:MODE 2:PRINT'"Load 
er Star raider 2 version originale pour cpc+ x TkJ du GPA 
"iPRINT:PRINT"Inserez votre original, et appuyez sur une 
touche...":CALL &BB18:FOR i-&9999 TO ROI4F:READ a$:POKE i 
, VAL("&"+a$) :NEXT 


58 FOR i=4BE8ÿ TO LBEGE:READ a$:POKE i, VAL("&"#a$):NEXT:C 


ALL &BEBG:DATA F3,91,E8,FE, ED, 49, 34,00, 40,FE, F3, 28, Fa, BE, 
FF, 21 

119 DATA A6,81,CD, 16, BD, 44, 09, 99, 00,08, 00,00, 00,00, 08,08 
128 DATA 09,09,09,90,0D, 14,57, LE, 9, DF, 20,91, C0, 45, CO, 87 
139 DATA CD,D8,C9,CD, 71,C9,91,7E,FB, 3E, 46, CD, 88,C9, AF, CD 
149 DATA 88, C9, 3A, 15,41, CD,88, C9, AF, CD, 88, CO, AF, CD, 88, C9 
159 DATA 3E,85,CD, 88, C9, AF, CD, 86, C9,3E, 11, CD, 88,C9, 3E,FF 
169 DATA F3, CD, 88, C9, FD,ES,E1,CD,EC,C6,FB,ES, FD,E1, CD, 99 
178 DATA 81,C3,4A,C9, CD, 99, 81, CD, 38,01, CD, QC, ÿ1,21,15, dt 
189 DATA 34,C9,C5,3h,1 1,CD,26,81,CD, 74,91,C1,19,F3, C9 


D, 
5,0 
198 DATA C5,8E,87, F,B9,ED, 43,99,BF,C1,C9,C5,ED, 4B, 98 
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XD 
> XU 


ED 


LV 


44 


299 DATA BF,CD,18,B9,C1,C9,9E,97,CD,CE, BC, 3E, 99, CD, DE, BC 
219 DATA 81,89,89,CD,38,BC,21,16,81,AF,4E,293,E5,F5, 41, CD 
229 DATA 32,BC,F1,E1,3C,FE, 19,29,F1,86,91,FD, 21, DC, 89, CD 
239 DATA 82,81,CD,93,B9, CD, 49,B9, CD, QC, 8D, FD, 21,9C, 8D, 96 
249 DATA 92,CD,82,91,FD,21,88,13,96,87,CD,82,81,3E, SE, CD 
259 DATA #1,92,81,7E,FA,AF, ED, 79,F3,91,8E, 7F, ED, 49,C3,88 
269 DATA 13,CD,26,91,11,92,BF,96,19,C5,D5,CD, 99,81, CD, 39 
2179 DATA 82,CD,9C,81,D1,21,4F,BE,91,94,99,ED,B9,C1, 19,E9 
289 DATA 21,92,BF,96,19,11,94,99,7E,FE,0F,28,83,19,19,F8 
299 DATA 86,84,BE,29,EB,23,19,FA,C9,CD,D8,C9,CD,71,C9,81 
399 DATA 7E,FB,3E,4A,CD,88,C9,AF,CD, 88,C9,C3, 4A, C9, 99,09 
319 DATA F3,21,09,99,11,09,01,91,59,91,ED,B9,C3,98,91 


SHUFFLE+.BAS 


19 CALL &BB4E:BORDER D:1NK 9,9:INK 1,26:MODE 2:PRINT'"Load 
er Shufflepuck cafe (Broderbund) version originale pour c 
pet + T&J du GPA*:PRINT:PRINT"Inserez votre original puis 
appuyez sur une touche..":CALL LKBB18:OPENOUT"d": MEMORY & 
2FF 


4 LOAD"loader.bin",4399:POKE &473,291:CALL k368 


SIGMA+.BAS 


19 CALL LBB4E:BORDER 8:INK 9,9:INK 1,26:NODE 2:PRINT"Load 
er Sigma 7 (Durell) version originale compatible cpc+t + T 
&J du GPA":PRINT:PRINT"Inserez votre original de Sigma 7 
et appuyez sur une touche.":CALL &BB18 

49 DATA 9,6,1,26,24,3,2,13,25,14,26,11,3,18,3,6 

58 MODE S:BORDER #:FOR a=9 TO 15:READ b:INK 3,b:NEXT a:DA 
TA 1,932,2,43,6,24 

79 B=&BCYB:C=&BDOZ:FOR A={ TO 3:READ D:OUT(B),D:READ D:OU 
T(CI,D:NEXT A:OPENOUT"d"':MEMORY &BFF:LOAD''sigsen", &CH89: 
LOAD"'main":MODE 1:1INK 1,18:1NK 3,6:POKE &5932, 291 

149 CALL &8236 


SKYDEM2+.BAS 


18 CALL &BB4E:BORDER 8:INK 8,8:INK 1,26:MODE 2:PRINT"Load 
er Sky demo 2 (Strooki) compatible cpc+ * T&J du GPA":0PE 
NOUT"d":MEMORY &193F :CLOSEOUT : LOAD"skydemo2. bin", &1949:PO 
KE &5D8B,295:POKE &5D8C,4:POKE &SD8D, 166:POKE &5E96, 295 :P 
OKE L5EN7, 9 

54 POKE &5E98,166:POKE &5E2D, 295:POKE &5E2E,9:POKE &SE2F, 
166:POKE &5E54,295:POKE &5E55,9:POKE RSES56, 166:POKE &5E7B 
,295:POKE 85E7C,S:POKE &5E7D, 166:POKE USEA2, 295:POKE &SEA 
3,9:POKE &SEA4, 166:POKE &5EC9,295:POKE &SECA,D:POKE &SECB 
,166:POKE BSEFS, 295 

119 POKE 45EF1,8:POKE B5EF2, 166:POKE &5F17,285:POKE &5F18 
,D:POKE &5F19,166:DATA 21,49,19,11,49,09,91,E6,4F,ED,B8,C 
3,BB,4F,90,08 

149 DATA 91,C9,F6, ED, 49,9E, 99, C9 

158 FOR i=&A5F# TO &AGQ7:READ a$:POKE i, VAL("&"+#a$) :NEXT: 
CALL &ASFS 
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VV 
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HT 


STREET+.BAS 


19 CALL &BB4E:BORDER B:INK 9,B:INK 1,26:MODE 2:PRINT"Load 
er Street sport basketball (Epix) version originale pour 
cpet # T&J du GPA":PRINT:PRINT"Introduisez votre original 
et appyuez sur une touche...":CALL &BB18:PRINT:PRINT"Pat 
ience..." 

48 FOR i=&BE8ÿ TO RBEDA:READ a$:POKE i, VAL("&"+a$):NEXT:D 
ATA 21,99,BE,11,98,99,91,59,98,ED,B8,C3,99,09, 99,09 

68 DATA 21,A9,98,11,53,99,91,93, 89, ED,B9,21,D6,99,11,65 
79 DATA 99,91,93,89,ED,B9,C3,44,96,CD,B6,99,CD,D9,98,08 
84 DATA 21,AC,98,11,9A,08,91,03,08,ED,B9,C3,00,03,09,09 
9g DATA 21,AC,99,11,A6,29,81,93,99,ED,B9,C3,98,93,09,00 
199 DATA #1,C8,F6,ED, 49,9E,99,C9,CD,C9, 99 

119 FOR i=&7519 TO &79FF:READ a$:POKE i, VAL("&"+a$) :NEXT: 
CALL &7518:DATA CD, 9D, BD, 22,34,98,ED,53, 36,98, F3,2A,17,BD 
, 22, 38 

149 DATA 89,91,6F,98,21,77,71,16,8E,ED, 56,090,00,98,09,98 
159 DATA C3,84, 75,18,16,96,96,0E,9E, 99,99, 1A,1A,09,09,02 
169 DATA 92,98,08,8A, BA, 0C, OC, DE, DE, 19, 19,12,12,16,16,91 
179 DATA 18,19,9B,55,64,3B,88,E7,14,49,42,6D,69,89,D2,2ÿ 
189 DATA 82,1A,79,3E,42,78,54,97,D6,8F, 48,B9,9C, 4D,88, 19 
199 DATA AC,48,B4,19,C9,4C,B6, 90, B2,D9,38,75,69,69,7C,5A 
289 DATA 79,BE,BF, AB, DB,D5,18,8F,ED,F8,F3,31,F6,BF, 11,E 
218 DATA 79,21,34,99,01,04,90,ED,B9, 2A,38, 99, D9,AF,21,09 
228 DATA 99,91,2F,75,5D,54,13,77,ED,B9,21,F6, 79,91, 19,86 
239 DATA 5D,54,13,77,00,99,D9,91,89,7F,ED, 49, 7C,E6,3F,57 
249 DATA 5D,21,C8,75,8E,FF,D5,C9, 2A,9E, 79,ED,5B, A8, 79,CD 
258 DATA 1ÿ,BD,F3,CD,16,79,41,7E,FB,AF,CD, 74,79, CD, 59, 79 
269 DATA 2A,87,76,26,09,11,33,75,29,19, 4E,23, 46, AF,C5,F5 
278 DATA CD,32,BC,F1,C1,3C,FE, 19,28,F4,06,99,8E, 9ÿ,CD, 38 
289 DATA BC,3E,81,CD,99,BB,3E, 93, CD, 96, BB, 3E, 91, CD, DE, BC 
299 DATA CD,59,78,CD, 99, 79,CD, CA, 78, 3A,9D, 79,5F,CD,EQ, 78 
398 DATA 11,54,75,21,09,C9,3E,12,F5,1A,4F,13,13,1A, 13,32 
314 DATA AB, 79, 34,53, 75,47, CD, 8D, 78,38, 9D,F1,3A,8E, 79, 3D 
329 DATA CA, D6,77,92,BE, 79,18, CE, F1, 3D, 20, DC, 3E,2A, 32, AC 


339 DATA 79,AF,32,A8, 79,3E, 92, 32, AA, 79,21,00,C9,11,55,75 
349 DATA 3E,12,F5,91,99,91,1A,ED, A1,C2,D6, 77,EA,67, 76,13 
359 DATA 13,13,F1,3D,29,EC, SE, 4C, 32, A5, 79, DD, 21, C9, 79, DD 
369 DATA 66,99, DD, 23, DD,6E, 89, DD, 23, 22,9B, 79,5D,CD,E9, 78 
378 DATA 21,99, 79,35,CA,99,77,21,9A, 79,35,2ÿ,17,21,33,75 
384 DATA AF,46,23,4E,23,F5,E5,CD, 32,BC,EL,F1,3C,FE, 19,28 
399 DATA F9,CD, 59,78, DD,6E, 99, DD, 23,DD,66, 89, DD, 23, DD, 4E 
489 DATA 99, DD,23,DD, 46,89, DD, 23, DD, 7E, 99,32,5C, 77, DD, 23 
418 DATA DD, 7E, 99,32, 46, 77,DD, 23, DD, 7E, 99,32, 4D,77,32,5F 
428 DATA 77,DD,23,DD, 7E, 49, 32,85, 77,DD, 23, DD, 7E, 98, 32,86 
438 DATA 77,DD,23,22,91, 79,ED, 43,6F, 79,E5,21,99,69,59, 58 


449 DATA A7,86,99,CB, 1A,CB, 1B,CB, 1C, CB, 1D,19,F6,96,97,A7 
458 DATA CB, 1C,CB,1D,19,F9,22,94, 79, 43,E1, 78, 32,93, 79,B7 
469 DATA 28,87,C5,CD,61,78,C1,19,F9,ED, 5B,94, 79, 7A, B3,28 
478 DATA 9D,ED, 53,96, 79,CD,61,78,21,FF,FF, 22,96, 79, 24,91 
489 DATA 79,ED,5B,8F, 79,96, 99,D5,E5,19,2B,7E,ÉE, 22, 4F, AB 


DA 


GH 


> 1] 


DK 
)X4 
UF 
)UX 
>GH 
DUV 


)XQ 
>XM 
>XY 
)YL 
)vQ 
>YD 
dAE 
XH 
YF 
>YP 
)ZF 
)2N 
YJ 
>ZK 
>AA 
)ZE 
>XU 
>2C 
>2L 
NYT 
YF 
>2D 
>ZH 
)YD 
>1B 
)ZN 
)ZF 
»YD 
)ZC 
»YX 
)ZY 
)YE 
)ZU 
>ZK 
>ZK 


45 


499 DATA 
549 DATA 
519 DATA 
52ÿ DATA 
539 DATA 
54ÿ DATA 
559 DATA 
569 DATA 
579 DATA 
589 DATA 
59g DATA 
64ÿ DATA 
619 DATA 
62ÿ DATA 
639 DATA 
64ÿ DATA 
659 DATA 
669 DATA 
679 DATA 
689 DATA 
699 DATA 
749 DATA 
718 DATA 
728 DATA 
738 DATA 
74ÿ DATA 
758 DATA 
769 DATA 
779 DATA 
789 DATA 
798 DATA 
889 DATA 
819 DATA 
824 DATA 
839 DATA 
84ÿ DATA 
859 DATA 
86ÿ DATA 
879 DATA 


41,77,2B,1B, 74,83, C2,4B,77,E1,D1,86,89, 7E, EE, 22 
4F,A8,41, 77,23, 1B, 7A,B3, C2, 5D, 77, ED, 48,91, 79, ED 
5B,6F, 70, 21,09,09,0A,C5,4F,96,00,09,C1,03,1B, 7A 
83, C2, 76, 77,11,99,99, A7, ED, 52, C2, D6, 77,C3,98, 76 
21,AC,77,4F,46, 23, 4E, 23,F5,E5,CD, 32, BC, Et, F1, 3C 
FE, 19,29, F0, CD, 59, 78,CD, 59, 78, 18,29, 00,90, 19, 14 
02,92, 00,90, 0D,9D, 19, 19,02, 02,00, 00, 0D, 6D, 19,19 
02,62, 80,09, AD, 9D, 19, 19, 02,02, 90,00, CD, 16, 79,31 
F8, BF,F3,C3,68,BE, CD, CA, 78,F3,21,DC, 77,AF, 77,2B 
70,85, C2, DD, 77, 21,59, 76, 4F, 77,23, 7C,FE, CE, 20, F8 
1E,FF,3E,07,0E, 38, CD, 38, 78,3E, 45, 8E, PA, CD, 3B, 78 
3E, 9A,8E, BF, CD, 38, 78,01, E2,04, CD, 35, 78,3E, 05, 0E 
95, CD, 3, 78,3E,0A,0E,9F, CD, 3B, 78,81, C4, 09, CD, 35 
78,1D,29,D5,21,39,78,11,09,99,01,95,0D,ED, B9,C7 
51,89, 7F,ED,49,9B, 78,B1,29,FB, CO, 96, F4, ED, 79,06 
F6, ED, 78,F6, C9, ED, 79, E6, 3F,ED, 79,96, F4, ED, 49,96 
F6, 4F,F6,89, ED, 79, ED, 49, C9, FB, 96, A, 76,19, FD, F3 
C9, 34,90, 79, C6, CH, 4F, 34, 9B, 79, 47, CD, BD, 78, D2, D9 
77, 34,90, 79, 30, 32,90, 79,FE, 89, C4, ES, AF, 32, 9C, 79 
34, 98, 79, 30, 32,98, 79,5F, CD, EG, 78,E1,C9,D5,E5, 79 
32, A9, 79, 32, AB, 79, 78, 32, A7, 79,01, 7E,FB, 21, A5, 79 
LE, 89, CD, 10, 79,E1,ED,5B, 96, 79, CD, D, 79,E5, CD, 59 
79,E1,D1,34,9E, 79,FE, 49, 29,8E, 3A,9F, 79,FE, 80, 29 
97, 34, A9, 79,87, C9, 37,C9, A7,C9, 91, 7E,FB, 3E, 98, CD 
74,79, CD,59, 79,3E, 47, CD, 74, 79, AF, CD, 74, 79,18, 19 
91,7E,FB, 3€, 0F, CD, 74, 79, AF,CD, 74, 79, 7B, CD, 74, 79 
3E,98, CD, 74, 79, CD, 59, 79,3, 9E, 79, E6, 29, 28, F1, C9 
C5,81,7E,FA,3E, 81, ED, 79, 06,92, 11,09,98, LB, 7A,B3 
20,FB, 19,F6,C1,C9,91,7E,FA,AF, ED, 79, C9, 7E, CD, 74 
79,23, 1D, 29, F8, CO, 8C, 7E, ED, 79, 9D, 23, ED, 78, F2, 2€ 
79,6, 29, 20,F1,C9,0C, ED, 78, 77,00, 23, tB, ED, 78, F2 
3D, 79,6, 29, CB, 7A, B3, C2, 36, 79, 0C, ED, 78, 6D, ED, 78 
F2,4E, 79,E6, 29, C2, 4A, 79, C9, 21,9E, 79, ED, 78, FE, CU 
38, FA, AC, ED, 78, 80, 77, 23, 3€, 95, 3D, 28, FD, ED, 78,E6 
19,28,E9,C9,F5,F5,ED, 78,87, 30,FB, 87, 39,03, C3, D9 
77,F1,8C, ED, 79, 9D, 3E,95, 30,99, 20,FC, F1, C9, 93,08 
06,00,00,00,00,09,FF,FF,09, 84,02, 00,00,03,6D, tB 
99,80, 00,09,09,66,09,09,09,C1,91,C9,DA,FF, 28, 43 
29, 28, 31,39, 368, 37,29, 41,59,59,4C,45, 42, 59, 29, 41 
889 DATA 53,53,4F,43,49,41,54,45,53,08, 1F,09,C0, 08, 49, 32 
899 DATA 56,29, 25,49, 49,00,08,91,DD, 80, A5, Dé, 13,50,5E, 2E 
099 DATA 83,FD,EF, A3, AB,5C, 09,09, 09,00,00,00,00,08, 09,00 


TEXTOMAT+.BAS 


18 CALL 8&BB4E:BORDER 8: INK 9,B:INK 1,26:MODE 2:PRINT"Load 
er Textonat (Micro application) pour cpc+ * T&J du GPA":P 
RINT:PRINT"Inserez l'original de TEXTOMAT dans votre lect 
eur.":PRINT"Appuyez ensuite sur une touche.":CALL &BB18:F 
OR i=&A93ÿ TO &A95F 

4f READ a$:POKE i, VAL("&"+a$):NEXT:DATA E5,E1,AF,5F,57,6F 
,ÊE, 43, 26,9E, DF, 49, A9, C3, 43, A9 

68 DATA 66,C6,97,21,99,9E,81,92,90,7E,2F,77,23,19,FA, QD 
79 DATA E5,E1,29,F5,C3,89,BE,99,09,FF,00,00,00,00,00,90 
88 FOR 1=UBE89 TO &BEBA:READ A$:POKE 1, VAL("&"+A$):NEXT:D 
ATA E5,21,49,D3,22,E2,9E,E1,C3,E5,9E 

189 CALL LA93ÿ 


)ZB 
1T 
»YJ 
)YQ 
>2F 
)YC 
>XH 
>XK 
AC 
>ZG 
)2G 
)2L 
)1J 
DXY 
>ZK 
DAË 
ZX 
)IN 
>2G 
)1C 
>ÿB 
)ZB 
>2F 
)1C 
ZA 
>ZB 
LU 
VX 
) AM 
2G 
>ZK 
)2E 
)ZR 
)ZN 
>2U 
)YH 
>XQ 
)XN 
)XA 
)XE 
>YQ 
>XN 


T4 
JXX 
>XA 
BV 


KA 





D 339 DATA 61,90,99, 99, 36, 09,1, 99, 16,99, CD,63,C7,3E, 19,CD 
D 349 Data 93,06,c1, CD, 18,89,96, D, 21, 77,80, 36,DF, 23, 36, 8B 
TU RBO+ D 350 DATA 23, 36,48, 23,19,F5, 21,49, 00,11,41,90, 01,09, 19, 36 
D 369 DATA 09, ED, B9,F3,91,8C, 7F, ED, 49,01,05, BC, ED, 49, 84, 3E 
D 379 DATA 94, ED, 79,95, 0C, ED, 49,94, 3E, 18, ED, 79,95, 0C, ED, 49 
D 389 DATA 94,3E, 1D,ED, 79,21,99,C9,3E, 12, 06, 15, CD, C6, A2, 21 
19 CALL UBBAE:NODE Z:BORDER D: INK 9,8: UK 1,26:N00E 2:PRI DEN D 309 DATA 49,00, 3E,04,06, 11,CD,C6,A2,CD, 6,42, 31, 38,08, C3 
NT'Loader Turbo eup (Loriciel) version originale pour cpe I 499 DATA 8B,3E, AF, 18, 92,3E, 28,CD, 19, BD, 91,91, RC, ED, 49, 94 
+ # T&J du GPA":PRINT 419 DATA ED, 79,C9,3E, 91, CD, DE, BC, 21,88, A4, CD, 6D, A2, 2A, 49 
38 PRINT'Pas de presentation avec ce loader, desole. Si v UC I 429 DATA BE,01,0A,09,09,5E,23,56,EB,81,0F, 09,00, 36,81, 23 
ous voulez avoir une version parfaite de Turbo cup, ch D 439 DATA 36,99, 23, 23,23, 36,A6,91,05, 09, 99,36,FF,9E, 07, CD 
argez le fichier TURBO2.BAS, et remplacez le CALL 528 pa D 469 Da7 9F,B9,C5,21,2A,A2,96,28,C5,76,D6,2B,ED,44,57,1E 
r CALL 8218. ":PRINT D 459 DATA 99,0D,52,C6,C1,19,F1,C1,CD, 18, BO,CD, 96,89, F3, 21 
48 PRINT'Inserez l'original de Turbo cup et appuyez sur u 2KH Æ 469 DATA 99,09,11,01,99,AF,77,91,0F,A2,ED,B9,21,B2,A1, tt 
ne touche. ":CALL &BBAB:MODE B:FOR i=1 TO IS:INK Ï,D:NEXT: NL 479 DATA B3,A1,AF,77,81,4D,5E, ED, 9, C7, 01,00,61,02, 01,00 
FOR i=4BE89 TO UBEBD:READ a$:POKE i,VALU"E"#a$):NENT:DATA | 488 DATA 82,92,91,09,83,92,01,00,84,82,01,90, 85,92, 01,00 
21,98,19,11,00,92,01,8F,81,ED, B9, C3, 18,92 p “29 DATA 86,92,91,99,87,82,91,09,88,02, 91,06, 79,98, E1,C1 
78 OPENDUT"d":MEMORY &FFF : CLOSEOUT : LOAD'"prog",&1989:LOAD" >PM | 599 DATA C1,CD,18,B9,3E,91,CD,4E, RC, 21,2E, A4,CD, 6D, A2,CD 
data", 8C0U:CALL 8BEBD 519 DATA 89, BB, 39,FB, A,ES, 3F, CD, DE, BC, C3, 98, AB, 7E, B7, CB 
D 529 DATA CD,54,8B,23, 18, F7, 21, 49,09, 11,00, 80, 3E, ES, AE, 77 
D 539 Data 23,18, 74,83, 3E, ES, 29,F6,C9,F3, D9,CB, O1, ED, 49, DO 
D 549 DATA 21,99,06,3E, 44,BE, 28,03, 23, 18,FA, 23, 23, 23,5E, 23 
D 559 DATA 56,EB, 22, A9, A2, CD, 44,09, CD,BD, 98, D9, CB, D, ED, 49 
SU PE R+ BAS D 562 DATA DO, FR, C9,96, 32, C5, 06, F5, ED, 78, 1F, 38, FB, ED, 78, 1F 
. p 576 DATA 38,FB,C1,19, F9, C9, 32, 22, A4, 78, 32, 23, A4, 9E, 01, 32 
582 DATA 24,44,3E,98, 32,25, A4, F3,22,20, 44,01, 7E, FA,3E, 01 
LA CALL &BB4E:BORDER H:INK 9,8:1NK 1,26:M0DE 2:PRINT'Load DAT F 999 DATA ED,79,CD,88,A2,21,26, 44,DD,21, 18, A4, CD, 98, A3,21 
er Super Cyele (Epyx) pour cpet 4 TI du GPAMIPRINT:PRINT | 089 DATA 26,40, 7E,87,29,F2,DD,21, 10, H4,CD,98,43,21,26, k4 
“Inserez l'original de Super Cycle dans votre lecteur.":P I 619 DATA DD,21,9E, A4,CD,98, A3, 21,26, 44, CB,6E, 28,F2, DD, 21 
RINT"Appuyez ensuite sur une touche.":CALL &BB18:FOR i=&B 628 DATA DA, A4, 3A,22, A4, DD, 77,93,CD,98, A3, 21,26, A4, DD, 2 
EG T0 LRERR D 639 Data 8€, A6,CD,98, 3, 21, 26, 44, CB,6E, 28, F2, DD, 21, 18, A4 
GA READ a6:POKE à, VALC®U"#8)2NERT:DATA B1,CO,F8,ED,49,8€ )RG À 648 DATA CD,98,A3,DD,21,13, M, FD, 21,26, A4, FD, 7E, 93, DD, 77 
.88,C9,F3,C3,08, A9, 09.00, 09.90 D 659 DATA 83, FD, 7,84, DD, 77,04, FD, 7,06, DD, 77,06, 34, 24, A4 
88 DATA 91,9E,F4,ED, 49, CD,59,7C,21,99,BE,11,CE,2E,01,98 ya N 669 DATA 47, FD,7E,95,E6, F8, BDD, 77,05, EG, FD, 47, 34,25, 44 
98 DATA 99,ED,B9,21,99,BE,11,95,68,91,98,99,ED,R9,21,89 »x2 Q 570 DATA BU, DD,77,97,24,29, A4,CD,B1, 43, 3A, 24, 4,47, 34,25 
18 DATA BE, 11,50, 7C, 81,08, 80, ED, BD, C3, BB, 3E KG p 88 DATA 40,30, 99, CB, 27,57, LE, 99, 22,29, A4, 19, 22, 29, A4, DD 
119 FOR i=4A09D TO LAGEF:READ a8:POKE à, VAL("E"+a$):NEXT: FM 699 DATA 21, 04,4, 94,29, À, DD, BE, 5,28, 96, DD, 34,93, C3, 18 
POKE &A1BB, 152:POKE &A1B1, LOB:MODE B:FOR 528 TO 15:READ a 700 DATA AS,S1,7E,FA,AF,ED, 79, C8,DD, 46,92, DD,23,C5,DD,7E 
S2UNK à, VALC"R"+a$):NEXT:CALL ABEBB:DATA 42,56,47, 7€, 4F, à T9 DATA 90, 00,25, CD, ÉD, AS; EL, 18, FA, OL, PE, FE, LB, CG,E3 
6,46, 38.38, FD, 26. AD, FD. 2€, 2E, FD D 729 DATA A3,0D, 46,99, DD, 23, C5, DD, 7E, 99, DD, 23, CD, ED, A3, C1 
19 DATA E3,91,2E,08,FD,99, FD,5D,FD,54,68,62,01,85,94,e0 27 À 739 DATA L9,F4,81,7E,F,11,19,29,C3,D1, 43,4, ED, 78, 77,00 
158 DATA 57,F4,80,BF,ED,5F, AE, 77, ED, 49, E0,38,3B,E8,C9,c9 ag D 747 DATA 23,ED,78,F2,D1,A3, A2,C2,C8,A3,21,26, A4, OC, ED, 78 
169 DATA C9, C9, C9,C9, C9, C9,C9,C9,C9,C9,C9,c9,c9,ca,ca,ca pag N 759 DATA 77,90,23,ED, 78,F2,E3, A9, 43,C2, DD, 43, C9,FS,FS, 91 
179 DATA C9, C9,C9,C9,C9, C9, C9, C9,c9,c9, 9,9, cg,cg,cg,ca >ar W 768 DATA 7E,FB,ED, 76,87, 3,FB,67,39,93,F1,F1,C9,F1, AC, ED 
189 DATA C9,C9,C9,C9,C9, C9, C9,C9,C9,C9,c9,ca,ca,co,ca,co ar g 777 DATA 79,8D,3E,85,30,99,29,FC,F1,C9,93,0F,99, 08, 01,98 
198 DATA C9,C9,C9,C9,C9,C9,C9, C9, C9, C9, C9, 47, ED,52,98,21 46 g /8P DATA 02,4h,09,09,46,99,0B,99,41,92, 48, 24,FF, 92, 07,00 
289 DATA 2E,49,06,30,36,C9,23, 19,FB,98,C4,98,AD,C3,C3,A1 DYH ÿ 19 DATA 49,19,84,11,91,96, 09, 09, 89,08, 0,49, 02,98, 54,68 
219 DATA 54,49,54,4C, 45,53, 29,29,2E,53,43,4E,58,41,52,54 >4D NL 099 DATA 69,73,29,64,69, 73,63, 29, 77,69,6C,6C,29,6E, 6F, 74 
228 DATA 81,29,29,29,2E,53, 42, 46, AF ED, 4F,98, CD, 60, A2, DE V4 À 819 DATA 29,72,75,6E, 29,69, 66, 29, 57,52, 49,54, 45, 2D,58,52 
238 DATA 97,CD,9F,B9, C5, AF, CD, 39,C6,CB, 77,C2,58,A2,3E,FF 2H À 829 DATA 4F,54,45,43,54,29,54,41,42, 29,60, 73,29, 4F, dE, 3A 
249 DATA CD, 72,CA,3E,84,CD,93,C6, 2A, 49,BE,91,04,09,09,5E »2F D 839 DATA 29,59,6C,65,61,73,65,29, 73,6C,69,64,65,29, 74,61 
254 DATA 23,56,EB,01,9F, 09,99, 4E,23,46,C5,E5,36,099,28,36 »vp D 849 DATA 62,29, 74,6F,29,63,6F, 76,65, 72,29, 74,68,65, 77, 72 
269 DATA 81,91,09,99,09,36,FF,21,49,08,1F,00,16,91,0€,82 x7 090 DATA 69,74,65,2D, 79, 72,6F, 74,65,63, 74,28,68,6F, 6C, 65 
279 DATA CD,66, 6,99, 99,00, 21,49,00,7E,91,99,02,ED,A1,98 >xv p 668 DATA 20,28, 74,68,65,6E,29, 79,72,65, 73,73,29,61,6E, 79 
289 DATA 99, 09, EA,ED, AD,FE,A6,28,16,FE,A7,C2,C3,a1,21,48 26 g 078 DATA 25,68,65,79,28,29, 74,6F,29,72,65,2D, 74,72, 79,28 
299 DATA 89, 18,90, 16,91,9E, 79, CD,66,C6,99,99,99,18,2C,2a V9 q 08 DATA 6C,6F,61,64,3h,9h,0D,99,28,24,28, 28,29,58, 48,49 
309 DATA 40,BE,01,0A,09,00,5E, 23,56, EB,01,0F,09,00,36,81 >yk À 699 DATA 53,29, 44, 40,53, 43,29, 49,53, 29, 41,4E, 29,49, 4C, 4C 
318 DATA 23, 36,89, 23, 23, 23,96, 47,01,05,09,99,36,FF,21,24 18 À 999 DATA 45,47,41,4C,219 CALL &BB4E:BORDER D: INK 9,9: INK 


328 DATA A2,1E,99,16,91,CD,52,C6,D2,4E,A2,E1,C1,78,2B,71 )YE I 
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Utiliser le bon de commande SORACOM 


MATHS + GEOGRAPHIE 


Chaque logiciel est vendu normalement au prix de 
200 F + 10 F de port l'unité, soit au total : 840 F 


ATTENTION STOCK LIMITE 1! 
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LIVRES 


e PROGRAMMES UTILITAIRES POUR 
AMSTRAD 
Michel ARCHAMBAULT 


Nombreuses 
routines : 
utilitaires de 


utilltaires 
graphiques, 
la gestion de 
fichiers, 
utilltaires 
imprimantes. 








e COMMUNIQUEZ AVEC VOTRE 
AMSTRAD 

Denis BONOMO et Eddy 
DUTERTRE 

Pour tous les passionnés d'ondes 
courtes, codage, décodage, 
réception/émission, interfaces. 


disquette : 250F 


e COMPILATIONS CPC 

Vous recherchez les anciens 
numéros de CPC ? Vous souhaitez 
connaître le mode d'emploi de 
certains logiciels du 
téléchargement ? Alors voici les 
compllations de 1 à 4 et de 5 à 8 


de CPC. 
sas EI 


compil 
de 1 à4 


Utiliser le bon de commande SORACOM 





e L'UNIVERS DU PCW 
Patrick LEON 


Environnement 

matérel, commande 
de CPM3, 0, le 
BDOS, le BIOS, 
fichiers binaires, 
éditeur de 
disquettes, 
désassembleur À 
Z80, graphismes, PIB — 
caractéres à la a LE À 
loupe. 









Les détails des logiciels et les tarifs 
— Catalogue des éducatifs gratuit — 


1 Je désire recevoir le catalogue des éducatifs, possèdant un ordinateur(s) 


I de marque4(s) 

l de type {(s) 

à l'adresse ci-contre : 
Nom : 

Adresse : 

Code postal : 


Prénom : 


Ville : 


’ 


| 


[È A ENVOYER AUX Epnirions SORACOM - BP 88 - 35170 BRUZ. Jonvre 2 rimgres À 2,50 F À] 
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aka fe 


SYMBOL 


MESSELIER Julien 


Valable pour CPC 6128 





Ce programme est destiné aux personnes qui utilisent 
souvent dans leur composition la commande "SYMBOL"!. 


n effet, i| permet de créer à 
l'écran de nouveaux caractéres, 


puis Il calcule les 
correspondants à ceux-ci: 


nombres 
et 


compose Un programme contenant 


S Y M B OL. 


PRRECCCEZTCI TELE ETTETE 
SYMBOL 


x 
* 
4g ‘x par * 
58 ‘x x 
Julien MESSELIER x 

3 

89 ’x(c) DANIZY. MAI 1992 x 
9g ‘x F 
180 UARRERENEENERNRERERNEENE 


119 DEFINT a-z 
128 GOSUB 1469 


139 SYMBOL AFTER 253:SYMBOL 253,192, 192,192, 192,192,192 >NX 
,192,255:SYMBOL 254,9,9,0,0,9,9,9,255:SYMBOL 255,1992,19 


2,192,192, 192,192, 192, 192 :nm=32 
149 DIM case(49,28) 

159 MÔDE L:BORDER 4:G0TD 1659 
169 'saisie du non du fichier 


17 LOCATE 18, 1:PRINT",BAS*:LOCATE 1,1:PRINT'FICHIER :" 


1) 
189 a$=UPPERS(INKEYS):1F a$="" THEN 184 


199 IF ASC(a$)>47 AND ASC(a$)<58 THEN 248 
28H IF ASC(a$)}64 AND ASC(a$)<9{ THEN 24ÿ 


218 IF (ASC(a$) 


=127 OR ASC(a$)=242) AND LEN(n$)>f THEN >WN 
n$=LEFTS$(n$, LEN(n$)-1):LOCATE LEN(n$)+19,1:PRINT" " 


les nouvelles redéfinitions qu'il 
sauvegardera. Le fichier ainsi créé 
pourra être directement utilisé dans 
d'autres programmes où il faut 


exemple. Les redéfinitions seront au 
choix, en nombres binaires, dé- 
cimaux ou hexadécimaux. 

Un mode d'emploi est inclus dans 


redéfinir des alphabets, par le programme. 
A S 339 1F (ASC(k$)=127 OR ASC(k$)=242) AND LEN(Iignes)>9 T >QM 
HEN ligne$=LEFT$(ligne$,LEN(Iigne$)-1):LOCATE G4+LEN(li 
)LA gne$),L:PRINT" ":LOCATE 64,1:PRINT ligne; 
>LB 348 IF ASC(k$)=13 THEN 399 TI 
>LC 358 GOTO 399 >YH 
>LD 369 IF LEN(Iigne$)=5 THEN 399 DUY 
>LE 379 LOCATE G4+LEN(lignes),1:PRINT k$;:lignet=ligne$+k$ )AQ 
>LF 389 GOTO 399 >ZA 
>LG 398 IF LEN(Iigne$)=9 THEN 349 WU 
>LH 489 pline=VAL(lignef) >RA 
>LJ 419 ’denande nbres bin.deci.hexa >RF 
>RB 42ÿ LOCATE 22,11:PRINT'REDEFINITIONS EN NOMBRES: " )XB 
DV] 438 LOCATE 22,14:PRINT"[1] BINAIRES":LOCATE 22, 15:PRINT DHC 
>PF "(2) DECIMAUX":LOCATE 22, 16:PRINT"(3] HEXADECIMAUX" 
448 k$=INKEYS:1F k$=""THEN 448 >XH 


459 IF k$="{"THEN LOCATE 46,11:PRINT" BINAIRES":choix=1 >MQ 


:GOTO 49ÿ 
MR 469 IF k$="2"THEN LOCATE 46,11:PRINT" DECIMAUX":choix=3 MY 
>YG :GOTO 49ÿ 
RH 479 IF k$="S"THEN LOCATE 46,11:PRINT" HEXADECIMAUX":cho oUB 
>DQ ix=2:G0T0 499 

488 GOTO 4àÿ )2G 
> FU 498 FOR i=1 TO 3:LOCATE 22,13+i:PRINT SPACES(IG):NEXT XX 
)EK 589 LOCATE 39,29:PRINT"OK (D/N)?" )BL 
)FX 519 kK$=UPPER$(INKEYS) >QP 


ÿ:NEXT:GOTO 558 


529 IF k$="O"THEN LOCATE 4ÿ,2B:PRINT'OUI":FOR t=1 TO 29 DTY 


200 IF ASCta$)=13 THEN 274 3TE 539 IF kS$="N'THEN LOCATE 49,2ÿ:PRINT'NON":FOR t={ TO 29 >DM 
239 GOTO 189 ZA Q:NEXT:n$="":nom$="":ligne$="":GOTO 159 

249 IF LEN(n$)=8 THEN 189 RP 549 GOTO 519 >ZB 
258 n$=n$+a$:LOCATE 19,1:PRINT n$ )AB 55ÿ CLS:a$="INSEREZ LA DISKETTE DE SAUVEGARDE DES MAINT >TH 
269 GOTO 189 >2D ENANT":b$-"ET NE LA SORTEZ PLUS AVANT LA SAUVEGARDE FIN 

279 IF LEN(n$)=8 THEN 189 ELSE non$=n$+", BAS" >LX ALE.":FOR a=1 TO 48:aa$=MID$(a$,a,1):LOCATE tf+a,11:PRI 

288 ’No tere ligne >TA NT aa$:SOUND 1,147,2:FO0R t=1 TO 29:NEXT t,a:FOR a=1 TO 

299 LOCATE 48,1:PRINT"NO DE LA PREMIERE LIGNE:" UP 48:bb$=MID$(b$,a,1) 

398 K$=INKEYS: IF k$=""THEN 399 >XB 569 LOCATE {ÿ+a,14:PRINT bb$:SOUND 1,147,2:FDR t=1 TO 2 2KK 
319 IF ASC(k$)=48 AND LEN(ligne$)=8 THEN 399 XKG B:NEXT t,a 

328 IF ASC(k$)>47 AND ASC(k$)€58 THEN 368 DFE 574 FOR t=1 TO 299:NEXT:LOCATE 68,24:PRINT CHR$(24); "UN >PJ 
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E TOUCHE" ;CHR$(24) :CALL &BB96 

584 ’On Commence 

599 PAPER#1,9 

68% GOSUB 1349 

619 CLS:BORDER D:ord-6:ab=21:WINDOW#2,65,71,2,29 

628 GOSUB 1449 

638 FOR x=19*16 TO 16x26 STEP 16*x2:0RIGIN x,28416:DRAUR 
8,-16"2:0RIGIN x+1,28*{6:DRAUR 8,-16"2:NEXT x:FOR y=4x 
16 TO 29*16 STEP 32:0RIGIN 19*16,y:DRAUR 16°2,9:0RIGIN 
18416,y+1:DRAUR 16"2,8:NEXT y 

648 LOCATE 64,1:PRINT CHR$S(1SZ)STRINGS (7,154) CHR$ (156): 
FOR m=2 TO 29:LOCATE 64,m:PRINT CHR$(149):LOCATE 72,m:P 
RINT CHR$ (149) :NEXT 

659 LOCATE 64,21:PRINT CHR$(147)STRINGS(7,154)CHR$(153) 


668 LOCATE 21,4:PRINT"128 64 32 16 8 4 2 1" 
678 WINDOW#1,2,76,22, 26:LOCATE#1,2,1:PRINT#1, "TAPEZ LE 
No DU CARACTERE OÙ [9] POUR SAUVER VOS REDEFINITIONS OÙ 

[A] OÙ [Q]":LOCATE#!, 1, 4:PRINT#1, "Dernier caract}re re 
dtfinii:No";dk:1F dk=ÿ THEN LOCATE#1,28,4:PRINT#L, "AUCUN 
L) 


689 LOCATE 2,19:PRINT'NO CARACTERE: ":LOCATE 73,2:PRINT 
CHR$(249);" A:LOCATE 73,29:PRINT CHR$(241);" Q 

699 k$=UPPERS(INKEYS):1F k$=""THEN 699 

798 cesq=ASC(k$):IF cesq=13 THEN ch=VAL(ch$):ch$="":GOT 
0 768 


719 IF cesg=127 AND LEN(ch$)>8 THEN ch$=LEFTS$(ch$, LEN(c 


h$)-1):LOCATE 15+LEN(ch$), 1@:PRINT" * 

729 IF cesq>47 AND ccsq(58 AND LENIch$){3 THEN ch$=ch$+ 
kS:LOCATE 15,19:PRINT ch$ 

739 IF ccsg=65 AND mn<>32 THEN GOSUB 1424 

749 IF ccsq=81 AND mm<>248 THEN GOSUB 1454 

759 GOTO 699 

764 IF ch=ÿ THEN 1388 

719 IF ch>255 THEN BORDER 1,3:PRINT'ERREUR ! 

T'< ou {gal @ 255":FOR t=1 TO 2UYB:NEXT:GOTO 614 
784 IF ch(32 THEN BORDER 1,3:PRINT"ERREUR ! 

"< ou {gal @ 32":FÛR t=1 TO 29#9:NEXT:GOT0 618 
799 LUCATE 2,11:PRINT SPACE$(9):LOCATE 2, 12:PRINT SPACE 
${11):LOCATE 2,13:PRINT SPACES$(11):ch=FIX (ch) :LOCATE 15 
,19:PRINT ch;" ":GOSUB 1628 

898 CLS#1:LOCATE#1,8,2:PRINTHI,"CESC]) FINIR [ESPACE] 
CALCULER CR] RECOMMENCER [SJ] SAUVER" :LOCATE#1,9, 4 
:PRINT#1, "TOUCHES DE DEPLACEMENT DU CURSEUR ET [ENTER] 
OU JOYSTICK 

819 LOCATE ab,ord:PRINT CHR$(143) 

829 "ATTENTE DES TOUCHES 

839 k$=UPPERS(INKEYS):1F k$=CHR$S(243)0R k$=" "THEN 954 
649 IF k$="A* AND mm<>32 THEN GOSUB 1429 

858 IF k$="Q" AND mmt>248 THEN GOSUB 1459 

869 IF k$=CHR$(242)0R k$=" "THEN 1999 

879 IF k$=CHR$(24#)0R k$=" "THEN 1959 

889 IF k$=CHR$(241)0R k$=" "THEN 1199 

898 IF k$="X"OR INKEY(6)=9 THEN 1158 

998 IF k$=" "THEN 1239 

918 IF k$="R'THEN 1378 

924 IF k$="S"THEN 1389 

934 ON BREAK GOSUB 1329 

948 GOTO 834 


":PRIN 


"PRINT ) 


>TD 
>LH 
>PF 
TV 
>PJ 
DEV 


RR 


V 


AE 


>UK 
>XG 


UU 


>BV 
?TA 
XQ 
>EV 
)FL 
CF 
>CN 
>CK 
>CD 
NB 
>PD 
>PG 
QT 
>AA 
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95ÿ ’a droite 
969 IF ab=49 THEN 839 


)TE 
NE 


979 LOCATE ab,ord:PRINT CHR$(255) :LOCATE ab+4,ord:PRINT AP 


CHRS(143) :ab=ab+4 
989 IF caselab-4,ord)={ THEN LOCATE ab-4,ord:PRINT CHR$ 
(143) 
99ÿ GOTO 839 
1989 a gauche 
1919 IF ab=21 THEN 638 
1929 LOCATE ab,ord:PRINT CHR$(255):LOCATE ab-4,ord:PRIN 
T CHR$(143):ab=ab-4 
1939 IF case(ab+a,ord)={ THEN LOCATE ab+4,ord:PRINT CHR 
$(143) 
1949 GOTO 838 
1958 ’en haut 
1969 1F ord=6 THEN 839 
1979 LOCATE ab,ord:PRINT CHRS(255):LOCATE ab,ord-2:PRIN 
T CHR$(143):ord=ord-2 
1989 IF caselab,ord+2):1 THEN LÜCATE ab,ord+2:PRINT CHR 
$(143) 
1994 GOTO 838 
1199 'en bas 
1119 IF ord=29 THEN 839 


1124 LOCATE ab,ord:PRINT CHR$:205;:LOCATE ab,ord+2:PRIN > 


T CHR$(143):ord=0ord+2 


1138 IF case(ab,ord-2)=1 THEN LOCATE ab,ord-2:PRINT CHR 


$(143) 

1149 GOTO 838 

1159 "remplir une case 

1169 IF case(ab,ord)=1 THEN 1189 

1179 IF case(ab,ord)=ÿ THEN 1219 

1189 LOCATE ab,ord:PRINT CHR$(255):LOCATE ab,ord+!:PRIN 
T CHR$(253):caselab,ord)=ÿ:LOCATE ab+{,ord+1:PRINT CHR$ 
(254) :LOCATE ab+2,ord+1:PRINT CHR$(254) :LOCATE ab+3, ord 
+{:PRINT CHR$(254) 

1199 LOCATE ab+3,ord:PRINT" ":LOCATE ab+{,ord:PRINT" *: 
LOCATE ab+2,ord:PRINT" * 

1299 GOTO 838 

1219 ORIGIN abx8,25#16-ordx{6:case(ab,ord)=1:FILL { 
1229 GOTO 83 

1239 ’calcul du CHR$ 

:249 FOR x=6 TO 29 STEP 2:mul=128:F0R y=21 TO 49 STEP 4 
in(x/2-2)=n(x/2-2)+case(y, x)#mul :mul=mul/2:NEXT y,x:FOR 
a=6 TO 29 STEP 2:LOCATE 55,a:PRINT n(a/2-2):NEXT:dk=ch 


1258 'affiche le symbol 

1269 conma$=HID$(CHR$(44),1) 

1279 CLS#1:IF choix=1 THEN FOR x=1 TO 8:ka$=ka$+"8&X"+MI 
D$(BIN$(n(x)),1)+comma$:NEXT 

1289 IF choix=2 THEN FOR x=1 TO 8:ka$=ka$+"&"+MIDS$CHEXS 
(n(x)),1)+comna$ :NEXT 

1299 1F choix=3 THEN FOR x=1 TO 8:ka$=ka$+MIDS(STR$(n{x 
)),2)+conma$ :NEXT 

1399 ka$=HID$S(STR$ (ch), 1)+", "+LEFT$(ka$, LEN(ka$)-1):LOC 
ATE#1,5,2:PRINT#1,"==)SYMBOL" ;ka$:LOCATE# 1, 49,4: PRINTHI 
, "EUNE TOUCHE ]":CALL &BB26:GO0T0 1368 

1318 ’FINIR 

132$ END 

1339 CREATION DES SYMBOLS 


)FC 


)AF 
»XD 
NB 
>BY 


>GN 


>FB 
»XJ 


1349 OPENOUT nom$:lines=pline+1g 

1358 RETURN 

1369 PRINT#9, lines; "SYMBOL";ka$:lines=lines+{ÿ:ka$="":F 
OR x=1 TO B:n(x)=Qÿ:NEXT 

1379 FOR w=21 TO 49 STEP 4:FOR z:6 TO 21 STEP 2:case(u, 
Z)=8:NEXT 2,w:G0TO 619 

1389 ‘SAUVEGARDE 

1399 CLS:LOCATE 29, 18:PRINT".,. SAUVEGARDE DE "inom$;" E 

N COURS..." 

1498 PRINT #9,pline;"SYMBOL AFTER"; chp:CLOSEDUT :LOCATE 
2,15:PRINT"POUR RECHARGER VOS REDEFINTIONS FAITES RUN 0 

u LOAD'+CHRS$ (34) :nom$ : END 

1419 ‘fenetre de visualisation 

1429 mn=mn-18:GO0T0 1449 

1439 LOCATEH2,1,19:PRINT#2,"NB:LES CHR DE253 À 255 
SONT  DEJA REDEFINISPAR CE PROGRAMME. ": RETURN 

1449 CLS#2:FOR x=mm TO nm+18:PRINTH2,x;CHRS(x):IF x=255 
THEN 1439 ELSE NEXT:RETURN 

1459 mn=mn+18:G0T0 144ÿ 

1469 "PRESENTATION 

1479 MODE 1:BORDER B:INK 8,t:INK 1,24 

1489 hhhh£=CHR$(74)+CHR$S(46)+CHR$(77)+CHR$ (69) +CHR$ (83) 
+CHRS (83) +CHR$ (69)+CHR$ (76) +CHR$(73)+CHR$(69)+CHR$(B2) 
1499 PEN 3:LOCATE 13,1:PRINT hhhh$:LOCATE 13,2:PRINT ST 
RINGS (11,298): INK 1,1:PEN 1:LOCATE {5,S:PRINT"prisente" 


1598 annef=CHR$(164)+CHR$ (49) +CHR$157)+CHR$(57)+CHR$ (59 
) 

1519 FOR x=1 TO 5:READ a$:FOR z=1 TO 32:w$=MID$(a$,z,f) 
:IF w$="2"THEN 1539 

1529 LOCATE 3+z,19+x:PRINT CHR$1143) 

1539 NEXT 2,x 

1549 INK 1,24:PEN 2:LOCATE 2,23:PRINT anne$:PEN {:LOCAT 
E 25,23:PRINT"UNE TOUCHE..." 

1559 CALL &BBYG6:MODE 2:RETURN 

1569 ?DATAS 

1574 DATA"11112122212122212211122112212222 

1589 DATA"12222212122112112212121221212222 

1599 DATA"11112221222121212211221221212222 

1699 DATA"22212221222122212212121221212222 

1619 DATA"11112221222122212211122112211112 

1629 ’comp.Ch et CHp 

1639 IF chp=8 THEN chp=ch:RETURN 

1649 IF ch<chp THEN chp=ch:RETURN ELSE RETURN 

1654 "MENU 

1669 PEN !:WINDOW#1,15,24,2,4:PAPER#1,3:CLS#t:LOCATE#(, 
1,2:a$="{.MODE D'EMPLOI":b$="2.COMMENCER":PRINT#I," SY 
MBOL":LOCATE 13,11:PEN 2:PRINT a$:LOCATE 13,15:PRINT b$ 
:PEN {:LOCATE 14,21:PRINT"VOTRE CHOIX:" 

1679 k$=INKEYS:IF k$="1"THEN LOCATE 14,21:PRINT SPACES( 
12):LOCATE 13,11:PRINT CHRS(24);a$;CHR$(24):FOR t=1 TO 

2958:NEXT:GOTO 1789 

1689 :IF k$="2"THEN LOCATE 14,21:PRINT SPACES(12) : LOCAT 
E 13,15:PRINT CHR$(24);b$;CHR$(24):FOR t=1 TO 295@:NEXT 
:MODE 2:G070 168 

1699 GOTO 1678 

1799 LE MODE D'EMPLOI 

1718 CLS:WINDOWK1,12,26,2,4:WINDOW#2, 1, 49,5, 25:PAPERK1 

3:CLSK1:LOCATEH1,2,2:PRINTH{, "MODE D'EMPLOI" 


S 
> 
L = 


>NH 
>YA 
>TF 


1729 PAPER#2,Q:PEN#2, {:RESTORE 1799:y=1:FOR da=1 TO 46: 
READ p$:y=y+2 

1739 IF y=19 THEN GOSUB 1789 

1749 FOR x=1 TO LEN(p$):h$=MID$(p$,x,{):1F h$="!"THEN h 
$=CHR$(24) 

1759 LOCATE#2, x,y:PRINT#2, h$: SOUND 1,147,2:FO0R t=1 TO 3 
ÿ:NEXT 


1769 IF h$=CHR$(46) THEN SOUND 1,3822,59:FOR t=1 TO 299 


ÿ:NEXT 


1779 NEXT x, da: LOCATE#2, 29, 19:PRINTH2, CHR$ (24) ; "UNE TOU 


CHE"; CHR$(24):CALL &BBG6:MODE 1:G0T0 1659 

1789 y=3:LOCATE#2, 29, 19:PRINTH2,CHR$ (24); "UNE TOUCHE";C 
HR$ (24) :CALL &BB96 :CLS#2:RETURN 

1799 DATA"Ce progranne est destin{ a faciliter 
1899 DATA"l’emploi de la fastidieuse 

1814 DATA"comnande SYHBOL. 

1829 DATA"I1 vous permettra de crier @ l’{cran 
1839 DATA"votre nouveau caract)re,et l'ordinateur 
1849 DATA"se chargera de calculer les nonbres 
1859 DATA"correspondants @ celui-ci.ll composera 
1868 DATA'"un petit programme contenant vos 

1874 DATA'"nouvelles red{finitions,que vous 

1889 DATA"pourrez inclure dans vos programnes 
1899 DATA"personnels. 

1999 DATA"Le gain de temps est donc consid{rable, 
1919 DATA'"car vous n'aurez plus @ calculer les 
1929 DATA"sommes des lignes de la matrice de 

1934 DATA'"caract}re et n'aurez pas À les taper. 
194ÿ DATA “!1-L'ORDINATEUR! vous demande sous 
1959 DATA'"quel nom sera sauvegard{ le progranme 
1969 DATA"qu'il va crier,le numiro de la ligne 
1974 DATA'"de dipart,et sf les red{ifinitions 

1989 DATA"seront en nombres BINAIRES, DECIMAUX ou 
1999 DATA"HEXADEC ! MAUX. 

2989 DATA"!2-L'ORDINATEUR! vous demande le 

2919 DATA'"num{ro du caract}hre que vous allez 
2928 DATA"red{finir. 

2934 DATA'!PAR EXEMPLE :!Le A majuscule est le 
2949 DATA"caractire No 65,Pour le redifinir, 

2858 DATA'"entrez 65,puis composez le nouveau 
2469 DATA"A @ l’aide du JOYSTICK ou des touches 
2879 DATA"de direction et [ENTER].Une fois votre 
2988 DATA"nouvelle lettre red{finie,appuyez sur 
2994 DATA'"CESPACE] pour que l'ordinateur calcule 
2199 DATA"les nombres correspondants @ votre 
2118 DATA'"redi{finition. 

2128 DATA"Pour faciliter la recherche des Nos 
2134 DATA"de caract)res,une fenetre dont vous 
2148 DATA"pouvez vous servir @ l'aide des touches 
2158 DATA'"IA] et [Q] a {t{ privue @ droite de 
2169 DATA" l’{cran. 

2179 DATA"EN BAS DE L'ECRAN SE TROUVENT LES 

2189 DATA"TOUCHES DE COMMANDE. 

2199 DATA"!VOUS POUVEZ DONC À L'AIDE DE CE 

2289 DATA"PROGRAMME FAIRE DE DIFFERENTES LETTRES 
2219 DATA" (Gothiques, liles, italiques,etc) 

2229 DATA"VOUS POUVEZ EGALEMENT REDEFINIR DES 
2239 DATA"ALPHABETS ETRANGERS (Russe, Arabe, etc) 
2248 DATA"OU COMPOSER DES MORCEAUX DE GRAPHIQUES. ! 


)QY 


)VN 
>KH 
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Voici un petit programme qui va faciliter la vie de beaucoup 
de lecteurs. En effet, nombre de programmes publiés dans 
nos pages sont très intéressants maïs leur utilisation 
nécessite des heures de travail ininterrompus devant votre 
CPC pour saisir les dizaines de pages de DATAs. 


charger les lignes de DATAs dans un fichier AS- 

Cll et de s'arrêter à tout moment. Ainsi le fichier 
de DATAs original pourra être reconstitué en utilisant 
les commandes LOAD pour le premier fichier, MERGE 
pour les suivants et enfin SAVE pour le sauvegarder. 


Fo e programme vous permet maintenant de 


FONCTIONNEMENT AAAAAAAAAIAAAIAAA 
DU PROGRAMME 


- Le programme demande sur quel support (cassette 
ou disquette) doit se trouver le fichier. 

- S'il s'agit de la cassette, le programme demande s'il 
est besoin d'initlaliser les commandes cassette (TAPE : 
dans le cas d'un 464 avec DDI-1 ou 6128 avec casset- 
te). 

- S'il s'agit de la disquette, le programme affiche la 
liste de tous les fichiers de type ASCII (*.asc). 

- Le programme demande ensuite le nom du fichier 
en sortie. 

- Ensuite on demande le numéro de ligne de départ 
et l'incrément pour les lignes suivantes. 

- Puis le nombre de DATAs par ligne. 

- Ensuite si le signe “&” est utilisé ou non. 

- Le programme demande alors la longueur de la 
chaîne somme. Si RETURN pas de somme en fin de 
ligne sinon le programme propose le choix de la for- 
mule de calcul pour cette somme. (Il est d'ailleurs 
possible d'en ajouter facilement de nouvelles. c.f ligne 
2350 à 2470). 

- Et si cette somme doit être réinitialisée à chaque 
ligne. 


- On peut alors entrer les DATAs. Il faut taper RETURN 
après chaque DATA. La touche DEL peut être utilisée 
en cas d'erreur. 

- À la fin de la ligne, si besoin est, on entre la somme 
de contrôle (le programme l'ayant calculé lui-même 
tout au long de la ligne). Ici aussi on peut utiliser la 
touche DEL. 

- Si Il Y a erreur sur la somme le programme propose 
de recommencer en effaçant la ligne où de corriger 
en passant sur chaque DATA ainsi que sur la somme. 

- SI la somme est correcte le programme propose de 
continuer ou de terminer. 


1995 >XD 
1810 * HAREMEERENNEREENNEREHRE DXE 
1928 ' : # XF 
1839 * E Chargement de DATAS )XG 
1845 ' # CPC 464/664/6128 K >XH 
1959 Pt +1 XJ 
1868 * # à Version 1.8.9 à à JXK 
1979 Pt" +1 YA 
1988 4 | À >tB 
1999 ? HHÉMMEHENNEREHENTENEN NC 
1198 ? >XE 
1119 ‘ (c) J-M. VINCENT Fevrier 199ÿ DXF 
1688 ! >YH 


1699 KEY DEF 66,9,9,9,9:POKE &BDEE, &C9 ? Annule BREAK L >DU 
CTRL+SHIFT+ESC 

1795 MODE 2:0N BREAK GOSUB 3189:0N ERRDR GOTO 3238 )TA 
1719 )YB 
1728  Initialisation des variables pour le chargement DYC 





des DATAS 

1738 

1748 

1758 WINDOW #1,1,89,1,24:CLS #1:WINDOW #2,1,88,25,25:CL 

S +2 

1768 PRINT #1,CHR$(24) ,SPACES (14); "Utilitaire de charge 

ment de datas dans un programne.";SPACE$(14) ;CHR$ (24); 

1778 PRINT #2, "Cassette ou Disquette (C/D) ? ";CHR$(24) 

3" Mi CHRS (24) ;CHR$(8) ; 

1788 inpval$="":WHILE inpval$="":jinpval$=UPPERS (INKEY$) 
:WEND:CLS #2 

1798 IF inpval$="C" THEN support$="cassette":G0TO 1829 

1899 IF inpval$C"D" THEN PRINT CHR$(7);:GOTO 1779 

1819 support$="disquette" 

1829 CLS #2:PRINT #2," Appuyer sur n'importe quelle touc 

he lorsque vous aurez inserer une ";support$; 

1839 inpval$="":UHILE inpval$="":inpval$=UPPERS (INKEY$) 

“:MEND:CLS #2 

1848 IF support$="disquette" THEN üDIR, "*.asc":G0TO 189 

ÿ 

1858 CLS K2:PRINT #2,"Avez-vous besoin d'initialiser le 

s comsandes cassette (UTAPE) (O/N) ? ";:GOSUB 2859 

1868 IF inpval$="0" THEN üTAPE 

1879 CLS #2:PRINT #2, "Press REC and PLAY then any key: 

"sCHR$S(24);" ";CHRS (24) ;CHR$ (8); 

1889 inpval$="":WHILE inpval$="":inpval$=UPPERS (INKEY$) 

:MEND:CLS #2 

1898 INPUT #2, "Quel fichier voulez-vous creer (le type 
’,asc’ est inplicite) "files 

1998 IF file$="" OR LEN(file$))8 THEN PRINT CHR$(7);:CL 

S #2:G0T0 1899 

1918 CLS #2:PRINT #2,"A quel numero de ligne voulez-vou 

s commencer ? ";:ca%=2:leninp*=5:GOSUB 294ÿ 

1928 nlX=VAL(val inp$) 

1939 CLS #2:PRINT #2, "Quel increment voulez-vous utilis 

er ? ";:caX=2:leninpx=5:GOSUB 294ÿ 

1949 incX=VAL(val inp$) 

1958 CLS #2:INPUT #2, "Nonbre de datas par ligne ";ndatl 

*% 

1968 IF ndatl%=9 THEN PRINT CHR$(7);:G0TO 1959 

1978 CLS #2:PRINT #2," Utilisez-vous le signe ’&' pour | 

es datas (D/N) ? ";CHR$S(24)5" ":CHRS(24) ;CHR$ (8) ; : GOSUB 
2859 

1988 IF inpval$="0" THEN amp%:{ ELSE amp%:$ 

1999 CLS #2:INPUT #2, "Longueur de la chaine ’somme’ en 

fin de ligne ";lsunx 

2998 IF IsumX{>8 THEN GOSUB 2398:CLS #2:PRINT #2,"Doit- 

on remettre a zero la chaine ’somme’ au debut de chaque 
ligne (O/N) ? ";CHR$(24);" "sCHR$(24) ;CHR$(B) ; :GOSUB 2 

859:1F inpval$="O" THEN csun%=1 ELSE csun%=f:IF inpval$ 

="0" THEN csun%:1 ELSE GOSUB 4998 

2919 

2828 ' Ouverture du fichier choisi precedensent 

2839 

2848 

2959 CLS #1:CLS #2 

2868 DIM valdat(ndat1#) 

2878 OPENOUT "!"+tfile$+".asc" 


)YE 
BL 


)CT 


)LF 
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2888 
2998 ’ Entree des DATAs, de la somme et verification 
74 UT RE 
2119 
2128 correct*=#:GOSUB 2529 
2139 
2148 ' Ecriture dans le fichier choisi precedemnent 
2158 ? ===" esse 
2168 
2179 PRINT #9,RIGHTS(STR$(n1%), LENCSTR$(n1%))-1);" DATA 

fn, 

; 

2188 FOR i%-ÿ TO ndat1%-1 
2199 IF ampX=1 THEN PRINT #9,"&"; 


2298 PRINT #9,MID$("99",1,2-LEN(HEX$ (valdat(i%))));HEX$ 
(valdat(ix)); 

2218 IF ixCndati%-1 THEN PRINT 49,","; ELSE IF Isum%<) 
ÿ THEN PRINT #9,","; ELSE PRINT #9 

2228 NEXT i% 

2239 IF Isun*=$ THEN GOTO 2399 

224$ 1F amp%=1 THEN PRINT #9,"&"; 

2259 PRINT #9,MID$(STRINGS(1sun%, ""), 1, LEN(STRING$(Isu 

n%,"9"))-LENCHEXS$ (val sum) ));HEX$(valsue) 

2269 

2278 ‘ Test pour continuer ou sortir 

22889 

2298 
2398 PRINT #2,CHR$(24);" Appuyer sur <F> pour sortir ou 
une autre touche pour continuer. ";CHR$(24); 

2319 inpval$="":WHILE inpval$="":inpval$=UPPERS (INKEY$) 
:MEND 

2328 CLS K2:1F inpval$="F" THEN CLOSEOUT:WINDOW 1,89,1, 
25:CLS:KEY DEF 66,9,&FC,&FC, &FC:POKE BBDEE, &C3:LOCATE 1 
,1:PRINT "Vous pouvez charger votre fichier en tapant : 
MePRINT:PRINT "LOAD ";CHR$(34) ;UPPERS (files) ;".ASC";CHR 
$(34):PRINT:END 

2338 n1%=nl%+incx 

2349 GOTO 212$ 

2358 

2369 " Sous-progranme du choix de la foraule de calcul 

de la sonse 

2378 

2388 

2399 CLS #2:PRINT #2," Utilisez-vous cette forsule de ca 
cul (O/N) : TOT=TOT+PEEK(AD) ? ";:GOSUB 2854:1F inpval 
$="0" THEN DEF FN sum=sumtvaldat(i%) :RETURN 

2498 CLS #2:PRINT #2,"Utilisez-vous cette formule de ca 
leul (0/N) : S=S+K+65536#(S+K232767) ? ";:GOSUB 2854:1F 
inpval$="0" THEN DEF FN sun=suntvaldat (is)+65536*(sunt 
valdat(i*)>32767) :RETURN 

2418 CLS #2:PRINT #2," Utilisez-vous cette formule de ca 
lcul (O/N) : som=somta*j ? ";:GOSUB 2859:1F inpval$="0" 
THEN DEF FN sus=sunt+valdat(i%)#(i%+1) :RETURN 

2428 

2438 
2449 

245$ 

2469 

2478 PRINT CHR$(7);:G0T0 2399 


Foraule de calcul suivante 


Derniere formule de calcul 


)YC 
)YD 
DXF 
7XG 
JU 
pt 
JXK 
)YA 
NB 
EU 


»YD 
»YE 
)XC 





2489 ? 

2498 * Sous-progranne d'entree et de verification des D 
ATAS 
2598 
2518 ' 
2528 inpsum*=@: IF correct*=9 THEN savsum=sua ELSE sun=s 
avsun 

2538 posxl%=POS(#1):posy14=VPOS(H1):1F csunk=1 THEN sum 
=ÿ 

2548 PRINT #1,RIGHT$(STR$(n1%),LEN(STR$(n1%))-1);" DATA 


2558 FOR i%=9 TO ndat1%-1 

2569 IF ampX=1 THEN PRINT #1,'"&"; 

2578 posrd*=POS(#1) :posyd%=VPOS (#1) :ca%=1: leninp#=2:1F 

correct*=ÿ THEN GOSUB 2948 ELSE valinp$=HEX$(valdat(i%) 

,leninp%):PRINT #ca%, valinp$;:GOSUB 2959 

2588 valdat(i%)=VAL("&"+val inp$) 

2598 IF LEN(valinp$)(=2 THEN LOCATE #1, posxd#, posydx:PR 
INT #1,HEXS$(valdat(ix),2); ELSE PRINT CHR$(7);:LOCATE # 

1,posxd%, posyd%:PRINT #1, SPACES(LENCHEXS$(valdat(ix),2)) 
))::LOCATE #1,posxd#%, posydx:G0TO 2579 

2698 1F ixndatIx-1 THEN PRINT 41,","; ELSE IF Isuma? 

ÿ THEN PRINT #1,","; ELSE PRINT #1 

2618 IF Isum%<>8 THEN sun=FN sun 

2628 NEXT i* 

2638 

2649 ? Entree de la somne (si besoin) 

2658 

2669 

267$ inpsun%-1:1F Isun%=9 THEN RETURN 

2689 IF amp%=1 THEN PRINT #i,"&"; 

2699 posxdx=POS(#1) :posyd%=VPOS (#1) :caX=1: leninpk=1sun% 
:IF correct*=9 THEN GOSUB 2949 ELSE valinp$=HEX$(valsum 
,leninp%}:PRINT #ca%,valinp$::GOSUB 2959 

2799 valsum=VAL("&"+val inp$) 

2718 IF LEN(valinp$)(=Isumx THEN LOCATE #1, posxdx, posyd 

X:PRINT H{,HEXS(valsum, Isum%) ELSE PRINT CHR$(7) ; :LOCAT 

E #1,posrd%, posydx:PRINT #1, SPACES(LENCHEX$ (valsus, | sum 

%)));:LOCATE #H,posxd%, posydx:GOTO 2699 

2728 

2739 ' Verification de la somme (si besoin) 

274$ 

2759 

2768 1F valsun=sun THEN RETURN 

2778 PRINT N2,CHR$(24);" Erreur dans les datas. Appuyer 
sur €R> pour recommencer ou <C> pour corriger. ";CHR$( 
24); :correct4=ÿ 

2789 inpval$="":WHILE inpval$="":inpval$=UPPERS(INKEY$) 
:WEND 

2798 IF inpval$="R" THEN CLS H2:LOCATE #1, posx1#, posyl% 
PRINT #1,SPACES (89) ; :LOCATE #1,posxl%,posyl%:sun=savsu 

n:GOTO 2529 

2898 IF inpval$="C" THEN correctx=1:LOCATE #1, posxl#%, po 
syl%:GOT0 2529 ELSE PRINT CHR$(7); :GOTO 2778 

2818 

2828 ? Sous-programse d’entree 0 (aui) / N (non) 

2838 


»YG 
)YH 


>XK 


>MK 


>YD 
)YE 
YF 
»YG 


| 





2858 PRINT #2,CHR$(24);" ";CHR$(24) ;CHR$(B); 

2868 inpval$=UPPER$(INKEYS):IF inpval$="" THEN 2669 
2878 IF inpval$O"O0" AND inpval$O"N" THEN PRINT CHR$(7 
);:GO0TO 2664 

2888 PRINT #2,inpval$;CHR$(24)5;" ":CHR$(24):;CHR$ (8); 
2899 RETURN 

2998 

2919 * Sous-progranne d’entree de caracteres hexadecina 
ux et de controle 

2928 
2938 

294$ valinp$="" 

295$ inpval$="* 

2968 WHILE inpval$<)CHR$(13) 

2978 IF correctx=9 THEN PRINT #ca%,CHR$(24);" ";CHR$S(24 
); 

2988 IF correctx=1 AND inpsum*=# THEN PRINT #ca4, CHR$(2 
4);",";CHR$S (24); 

2998 IF correct#=1 AND inpsum*=1 THEN PRINT #ca4, CHRS(2 
4); "iCHRS(24) ; 

3898 inpval$=UPPERS(INKEYS):1F inpval$="" THEN 3989 
3919 IF ASC(inpval$)=8 THEN 3999 * Touche BREAK 
3928 1F inpval$=CHR$(13) THEN 3189 ‘ Touche RETURN 
3939 IF inpval$CCHR$(127) THEN 3979 * Touche DEL 

3948 1F LEN(valinp$)=# THEN PRINT CHR$(7);:inpval$="":G 
OTO 3999 

395$ valinp$=MID$(valinp$, 1, LEN(valinp$)-1) 

3969 PRINT Hca%,CHR$S(8);CHR$(B);" ";CHR$(8);CHR$(8);:i 
npval$="":GOTO 2978 

3978 IF LEN(valinp$)=leninpx THEN PRINT CHR$(7);:inpval 
$="":GOTO 34989 

3988 IF (inpval$>="g" AND inpval$<="9") OR (inpval$>="A 
"AND inpval$(="F") THEN PRINT #ca%,CHR$(8);" ";CHR$(8) 
jinpval$; ELSE PRINT CHR$(7);:GOT0 3998 

3999 valinp$=valinp$tinpvalé 

3198 IF LEN(valinp$)=8 THEN PRINT CHR$(7);:inpval$="":G 
OTO 3999 

311$ WEND 

3129 PRINT Hca%,CHR$(8);" 
3138 RETURN 

3149 

3158 ' Sous-progranme de traitement du BREAK 
3169 ? 
3178 ? 
3189 CLOSEOUT :WINDOW 1,89,1,25:LOCATE 1,25:PRINT SPACES 
(69); :LOCATE 1,24:G0T0 3268 

3199 ? 

3298 ‘ Sous-prograune de traitement des erreurs 

3219 
322$ 
3239 CLOSEOUT:WINDOW 1,89, 1,25:CLS 

3248 PRINT ‘Erreur t";ERR;"a la ligne #H";ERL 

3258 RESUME 3269 

326$ END 

4899 CLS#2:INPUT#2, "Valeur de la derniere ’somne’ de co 
ntrole en fin de ligne ";s$ 

4919 sum=VAL("&k"+s$) 

4828 csum*=8:RETURN 


";CHR$ (8); 
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)LU 
JWK 
)N2 


MR 
>GC 
)YD 
DYE 


YF 


>YG 
CF 
CG 
>XH 
)BB 


JUY 


JUN 


WG 
ZA 
>AP 
)CC 
XKH 


JNJ 
»ZA 


UF 


AE 


>YZ 
KE 


>HK 
DE 
)FA 
YA 
)YB 
NYC 
)YD 
>LF 


YF 
>XH 
>XJ 
>XK 
>D4 
JUB 
>GK 
)YK 
HR 


>NR 
PL 


MEGA 30 FF 
+ port 4 FF 
réf : SRCPINOI 


FANZINES 30 FF 


+ port 4FF 
réf : SRCPINO4 





Port + 25 F par article 











Æ% PC 30FF 
Nouvelle série + port 4 FF 
FeDXeF 35FF réf : SRCPINO3 
+ port 4FF 
réf : SRCPINO2 


ATTENTION, pour des raisons 
techniques d'impression, 
les couleurs des pin’s sont 

légèrement différentes. 


La série des 5 pin’s 
140 FF + port 7 FF (Ut? 


réf : SRC5PIN CPC 30 FF 
+ port 4 FF 
réf : SRCPINO5 





Media Box Disquettes Tue 
182x178x348 mm 
Réf. 310.501.1 


180 F + port 


pour 70 disquettes, livré 
avec séparations et index 





ses Media Box 
Mar: Compact Disc 
Rp Media Box 148x135x348 mm 
m/” Disquettes Réf: 310.502.6 
= 125 F + port 
221x135x348 mm ESS . 
Réf. 310.506.4 pour 13 compacts discs simples 


pour 150 disquettes 


SORACOM editions 
La Haie de Pan B.P.88 35170 BRUZ 
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LES MEILLEURS LOGICIELS PUBLIES DANS AMSTAR & CPC 
ET CPC INFOS 





Simple, rapide, efficace : 
Téléchargez les listings publiés 
dans le mensuel CPC infos. 

Il vous suffit pour cela de notre 
logiciel ARCADES, et d’un câble 
de liaison minitel-CPC que nous 
pouvons vous fournir. 

Sur 36 15 Arcades, des jeux et 
des utilitaires, du son et du 
graphisme. à 


LA COMMUNICATION 
C’EST NOTRE METIER 


Voir bon de commande page 5: 


<lRE 





ATTENTION : Seul le câble Arcades fonctionne avec le logiciel de téléchargement. 





